home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / os2 / memsz161.zip / MEMSIZE.C < prev    next >
C/C++ Source or Header  |  1993-04-09  |  129KB  |  3,942 lines
  1. /****************************************************************** MEMSIZE.C
  2.  *                                        *
  3.  * System Resources Monitor                            *
  4.  *                                        *
  5.  * Revision 1.61 (09 April 1993)                        *
  6.  *                                        *
  7.  * (C) Copyright 1991-1993 by Richard W. Papo.                    *
  8.  *                                        *
  9.  * This is 'FreeWare'.    As such, it may be copied and distributed        *
  10.  * freely.  If you want to use part of it in your own program, please        *
  11.  * give credit where credit is due.  If you want to change the            *
  12.  * program, please refer the change request to me or send me the        *
  13.  * modified source code.  I can be reached at CompuServe 72607,3111.        *
  14.  *                                        *
  15.  ****************************************************************************/
  16.  
  17. #define INCL_BASE
  18. #define INCL_PM
  19. #include <os2.h>
  20.  
  21. #include <direct.h>
  22. #include <process.h>
  23. #include <stdarg.h>
  24. #include <stddef.h>
  25. #include <stdio.h>
  26. #include <stdlib.h>
  27. #include <string.h>
  28. #include <time.h>
  29.  
  30. #include <sys\types.h>
  31. #include <sys\stat.h>
  32.  
  33. #include "debug.h"
  34. #include "support.h"
  35. #include "about.h"
  36. #include "settimer.h"
  37.  
  38. #include "memsize.h"
  39.  
  40.  
  41. /****************************************************************************
  42.  *                                        *
  43.  *             Definitions & Declarations                *
  44.  *                                        *
  45.  ****************************************************************************/
  46.  
  47.   // Constants
  48.  
  49. #define PROGRAM_NAME        "MEMSIZE"
  50. #define CLASS_NAME        "MEMSIZE"
  51.  
  52. enum
  53. {
  54.   ITEM_CLOCK,
  55.   ITEM_MEMORYFREE,
  56.   ITEM_SWAPFILESIZE,
  57.   ITEM_SWAPDISKFREE,
  58.   ITEM_SPOOLFILESIZE,
  59.   ITEM_CPULOAD,
  60.   ITEM_TASKCOUNT,
  61.   ITEM_BASE_COUNT
  62. } ;
  63.  
  64. #define WM_REFRESH        WM_USER
  65.  
  66. #define MAX_DRIVES      26
  67. #define DRIVE_ERROR      0xFFFFFFFFL
  68.  
  69.  
  70.   // Data Types
  71.  
  72. typedef struct          // Data structure for item to be monitored.
  73. {
  74.   CHAR     Name [80] ;           // Text for item's profile name.
  75.   BOOL     Flag ;            // Flag: Show this item at this time?
  76.   CHAR     Label [80] ;           // Text to display on left part of line.
  77.   ULONG  Value ;           // Value to display on right part of line.
  78.   BOOL     Error ;           // Flag: Drive has had an error.
  79.   CHAR     MenuOption [80] ;     // Text to display in system menu.
  80.   USHORT MenuId ;           // ID for use in system menu.
  81.   ULONG  (*NewValue)           // Function to determine new value.
  82.     (PVOID,USHORT) ;
  83.   USHORT Parm ;            // Parameter to pass to NewValue function.
  84.   USHORT Divisor ;           // Amount to divide value by before display.
  85.   CHAR     Suffix ;           // Character to place after value.
  86. }
  87. ITEM, *PITEM ;
  88.  
  89. typedef struct          // Parameters saved to system.
  90. {
  91.   PITEM  Items ;        // Items to display.
  92.   int     ItemCount ;
  93.  
  94.   SWP     Position ;        // Window size & location.
  95.   BOOL     fPosition ;
  96.  
  97.   BOOL     HideControls ;     // User options.
  98.   BOOL     fHideControls ;
  99.  
  100.   USHORT TimerInterval ;
  101.   BOOL     fTimerInterval ;
  102.  
  103.   CHAR     FontNameSize [80] ;    // Presentation Parameters
  104.   BOOL     fFontNameSize ;
  105.  
  106.   COLOR  BackColor ;
  107.   BOOL     fBackColor ;
  108.  
  109.   COLOR  TextColor ;
  110.   BOOL     fTextColor ;
  111. }
  112. PROFILE, *PPROFILE ;
  113.  
  114. typedef struct        // Data structure for window.
  115. {
  116.   HAB         Anchor ;
  117.   HMODULE     Library ;
  118.  
  119.   ULONG      MaxCount ;
  120.   ULONG      IdleCounter ;
  121.   ULONG      IdleCount ;
  122.   TID         IdleLoopTID ;
  123.   TID         MonitorLoopTID ;
  124.  
  125.   PROFILE     Profile ;
  126.  
  127.   HWND           hwndTitleBar ;
  128.   HWND           hwndSysMenu ;
  129.   HWND         hwndMinMax ;
  130.  
  131.   ULONG      Drives ;
  132.  
  133.   char           SwapPath [_MAX_PATH] ;
  134.   int         MinFree ;
  135.  
  136.   PCHAR      SpoolPath ;
  137.  
  138.   long         Width ;
  139.   long         Height ;
  140.  
  141.   COUNTRYINFO     CountryInfo ;
  142. }
  143. DATA, *PDATA ;
  144.  
  145. typedef struct
  146. {
  147.   HAB Anchor ;
  148.   HMODULE Library ;
  149. }
  150. PARMS, *PPARMS ;
  151.  
  152. typedef struct
  153. {
  154.   volatile PULONG Counter ;
  155.   PUSHORT Interval ;
  156.   HWND Owner ;
  157. }
  158. MONITOR_PARMS, *PMONITOR_PARMS ;
  159.  
  160.  
  161.   // Function Prototypes
  162.  
  163. extern void main ( int argc, PCHAR argv[] ) ;
  164.  
  165. static MRESULT EXPENTRY MessageProcessor
  166. (
  167.   HWND hwnd,
  168.   USHORT msg,
  169.   MPARAM mp1,
  170.   MPARAM mp2
  171. ) ;
  172.  
  173. static METHODFUNCTION Create ;
  174. static METHODFUNCTION Destroy ;
  175. static METHODFUNCTION Size ;
  176. static METHODFUNCTION SaveApplication ;
  177. static METHODFUNCTION Paint ;
  178. static METHODFUNCTION Command ;
  179. static METHODFUNCTION ResetDefaults ;
  180. static METHODFUNCTION HideControlsCmd ;
  181. static METHODFUNCTION SetTimer ;
  182. static METHODFUNCTION About ;
  183. static METHODFUNCTION ButtonDown ;
  184. static METHODFUNCTION ButtonDblClick ;
  185. static METHODFUNCTION PresParamChanged ;
  186. static METHODFUNCTION SysColorChange ;
  187. static METHODFUNCTION QueryKeysHelp ;
  188. static METHODFUNCTION HelpError ;
  189. static METHODFUNCTION ExtHelpUndefined ;
  190. static METHODFUNCTION HelpSubitemNotFound ;
  191. static METHODFUNCTION Refresh ;
  192.  
  193. static void GetProfile ( HAB Anchor, HMODULE Library, PPROFILE Profile ) ;
  194. static void PutProfile ( PPROFILE Profile ) ;
  195.  
  196. static PCHAR ScanSystemConfig ( PCHAR Keyword ) ;
  197.  
  198. static void ResizeWindow ( HWND hwnd, PPROFILE Profile ) ;
  199.  
  200. static void HideControls
  201. (
  202.   BOOL fHide,
  203.   HWND hwndFrame,
  204.   HWND hwndSysMenu,
  205.   HWND hwndTitleBar,
  206.   HWND hwndMinMax
  207. ) ;
  208.  
  209. static void UpdateWindow ( HWND hwnd, PDATA Data, BOOL All ) ;
  210.  
  211. static ULONG ComputeTime       ( PDATA Data, USHORT Dummy ) ;
  212. static ULONG ComputeFreeMemory ( PDATA Data, USHORT Dummy ) ;
  213. static ULONG ComputeSwapSize   ( PDATA Data, USHORT Dummy ) ;
  214. static ULONG ComputeSwapFree   ( PDATA Data, USHORT Dummy ) ;
  215. static ULONG ComputeSpoolSize  ( PDATA Data, USHORT Dummy ) ;
  216. static ULONG ComputeCpuLoad    ( PDATA Data, USHORT Dummy ) ;
  217. static ULONG ComputeTaskCount  ( PDATA Data, USHORT Dummy ) ;
  218. static ULONG ComputeDriveFree  ( PDATA Data, USHORT Drive ) ;
  219.  
  220. static void _far _cdecl MonitorLoopThread ( PMONITOR_PARMS Parms ) ;
  221.  
  222. static VOID UpdateDriveList
  223. (
  224.   HAB Anchor,
  225.   HMODULE Library,
  226.   PPROFILE Profile,
  227.   ULONG OldDrives,
  228.   ULONG NewDrives
  229. ) ;
  230.  
  231. static BOOL CheckDrive ( USHORT Drive, PBYTE FileSystem ) ;
  232.  
  233. static VOID RebuildDisplayItems ( HWND hwnd, PDATA Data ) ;
  234.  
  235. static ULONG CalibrateLoadMeter ( void ) ;
  236.  
  237. static void _far _cdecl CounterThread ( PULONG Counter ) ;
  238.  
  239.  
  240.   // Global Data (private)
  241.  
  242. static HSEM ItemSemaphore ;
  243.  
  244. static ITEM Items [ ITEM_BASE_COUNT + MAX_DRIVES ] =
  245. {
  246.   {
  247.     "ShowTime",      TRUE, "", 0L, FALSE, "", IDM_SHOW_CLOCK,
  248.     ComputeTime,       0,    0, ' '
  249.   },
  250.  
  251.   {
  252.     "ShowMemory",    TRUE, "", 0L, FALSE, "", IDM_SHOW_MEMORY,
  253.     ComputeFreeMemory, 0, 1024, 'K'
  254.   },
  255.  
  256.   {
  257.     "ShowSwapsize",  TRUE, "", 0L, FALSE, "", IDM_SHOW_SWAPSIZE,
  258.     ComputeSwapSize,   0, 1024, 'K'
  259.   },
  260.  
  261.   {
  262.     "ShowSwapfree",  TRUE, "", 0L, FALSE, "", IDM_SHOW_SWAPFREE,
  263.     ComputeSwapFree,   0, 1024, 'K'
  264.   },
  265.  
  266.   {
  267.     "ShowSpoolSize", TRUE, "", 0L, FALSE, "", IDM_SHOW_SPOOLSIZE,
  268.     ComputeSpoolSize,  0, 1024, 'K'
  269.   },
  270.  
  271.   {
  272.     "ShowCpuLoad",   TRUE, "", 0L, FALSE, "", IDM_SHOW_CPULOAD,
  273.     ComputeCpuLoad,    0,    0, '%'
  274.   },
  275.  
  276.   {
  277.     "ShowTaskCount", TRUE, "", 0L, FALSE, "", IDM_SHOW_TASKCOUNT,
  278.     ComputeTaskCount,  0,    0, ' '
  279.   }
  280. } ;
  281.  
  282.  
  283. /****************************************************************************
  284.  *                                        *
  285.  *    Program Mainline                            *
  286.  *                                        *
  287.  ****************************************************************************/
  288.  
  289. extern void main ( int argc, PCHAR argv[] )
  290. {
  291.  /***************************************************************************
  292.   * Local Declarations                                *
  293.   ***************************************************************************/
  294.  
  295.   HELPINIT HelpInit =
  296.   {
  297.     sizeof ( HELPINIT ),
  298.     0L,
  299.     NULL,
  300.     MAKEP ( 0xFFFF, ID_MAIN ),
  301.     0,
  302.     0,
  303.     0,
  304.     0,
  305.     NULL,
  306.     CMIC_HIDE_PANEL_ID,
  307.     PROGRAM_NAME ".HLP"
  308.   } ;
  309.  
  310.   HAB Anchor ;
  311.   FRAMECDATA fcdata ;
  312.   CHAR HelpTitle [80] ;
  313.   HWND hwndClient ;
  314.   HWND hwndFrame ;
  315.   HWND hwndHelp ;
  316.   HMODULE Library ;
  317.   HMQ MessageQueue ;
  318.   PARMS Parms ;
  319.   QMSG QueueMessage ;
  320.   BOOL Reset ;
  321.   CHAR ResetCommand [40] ;
  322.   CHAR Title [80] ;
  323.  
  324.  /***************************************************************************
  325.   * Initialize for PM.    Abort if unable to do so.                *
  326.   ***************************************************************************/
  327.  
  328.   Anchor = WinInitialize ( 0 ) ;
  329.   if ( Anchor == NULL )
  330.     return ;
  331.  
  332.  /***************************************************************************
  333.   * Create the application message queue.  Abort if unable to do so.        *
  334.   ***************************************************************************/
  335.  
  336.   MessageQueue = WinCreateMsgQueue ( Anchor, 0 ) ;
  337.   if ( MessageQueue == NULL )
  338.   {
  339.     WinTerminate ( Anchor ) ;
  340.     return ;
  341.   }
  342.  
  343.  /***************************************************************************
  344.   * Now WIN and GPI calls will work.  Open the language DLL.            *
  345.   ***************************************************************************/
  346.  
  347.   if ( DosLoadModule ( NULL, 0, PROGRAM_NAME, &Library ) )
  348.   {
  349.     Debug ( HWND_DESKTOP, "ERROR: Unable to load " PROGRAM_NAME ".DLL." ) ;
  350.     WinDestroyMsgQueue ( MessageQueue ) ;
  351.     WinTerminate ( Anchor ) ;
  352.     return ;
  353.   }
  354.  
  355.  /***************************************************************************
  356.   * Register the window class.                            *
  357.   ***************************************************************************/
  358.  
  359.   if ( NOT WinRegisterClass ( Anchor, CLASS_NAME, MessageProcessor,
  360.     CS_MOVENOTIFY, sizeof(PVOID) ) )
  361.   {
  362.     CHAR Message [200] ;
  363.     char Title [80] ;
  364.  
  365.     WinLoadString ( Anchor, Library, IDS_TITLE,
  366.       sizeof(Title), Title ) ;
  367.     WinLoadString ( Anchor, Library, IDS_ERROR_WINREGISTERCLASS,
  368.       sizeof(Message), Message ) ;
  369.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  370.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  371.  
  372.     WinDestroyMsgQueue ( MessageQueue ) ;
  373.     WinTerminate ( Anchor ) ;
  374.     return ;
  375.   }
  376.  
  377.  /***************************************************************************
  378.   * Decipher command-line parameters.                        *
  379.   ***************************************************************************/
  380.  
  381.   WinLoadString ( Anchor, Library, IDS_PARMS_RESET, sizeof(ResetCommand), ResetCommand ) ;
  382.   Reset = FALSE ;
  383.  
  384.   while ( --argc )
  385.   {
  386.     argv ++ ;
  387.     strupr ( *argv ) ;
  388.     if ( *argv[0] == '?' )
  389.     {
  390.       CHAR Message [200] ;
  391.       CHAR Title [80] ;
  392.  
  393.       WinLoadString ( Anchor, Library, IDS_TITLE,
  394.     sizeof(Title), Title ) ;
  395.       WinLoadString ( Anchor, Library, IDS_PARAMETERLIST,
  396.     sizeof(Message), Message ) ;
  397.       WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  398.     Title, 0, MB_ENTER | MB_NOICON ) ;
  399.  
  400.       WinDestroyMsgQueue ( MessageQueue ) ;
  401.       WinTerminate ( Anchor ) ;
  402.       return ;
  403.     }
  404.  
  405.     if ( !strcmp ( *argv, ResetCommand ) )
  406.     {
  407.       Reset = TRUE ;
  408.       continue ;
  409.     }
  410.  
  411.     {
  412.       CHAR Format [200] ;
  413.       CHAR Message [200] ;
  414.       CHAR Title [80] ;
  415.  
  416.       WinLoadString ( Anchor, Library, IDS_TITLE,
  417.     sizeof(Title), Title ) ;
  418.       WinLoadString ( Anchor, Library, IDS_ERROR_INVALIDPARM,
  419.     sizeof(Format), Format ) ;
  420.       sprintf ( Message, Format, *argv ) ;
  421.       WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  422.     Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  423.  
  424.       WinDestroyMsgQueue ( MessageQueue ) ;
  425.       WinTerminate ( Anchor ) ;
  426.       return ;
  427.     }
  428.   }
  429.  
  430.  /***************************************************************************
  431.   * If we're going to reset the program's profile, do it now.               *
  432.   ***************************************************************************/
  433.  
  434.   if ( Reset )
  435.   {
  436.     PrfWriteProfileData ( HINI_USERPROFILE, PROGRAM_NAME, NULL, NULL, 0 ) ;
  437.   }
  438.  
  439.  /***************************************************************************
  440.   * Create the help instance.                            *
  441.   ***************************************************************************/
  442.  
  443.   WinLoadString ( Anchor, Library, IDS_HELPTITLE, sizeof(HelpTitle), HelpTitle ) ;
  444.   HelpInit.pszHelpWindowTitle = HelpTitle ;
  445.  
  446.   hwndHelp = WinCreateHelpInstance ( Anchor, &HelpInit ) ;
  447.  
  448.   if ( hwndHelp == NULL )
  449.   {
  450.     CHAR Message [200] ;
  451.     char Title [80] ;
  452.  
  453.     WinLoadString ( Anchor, Library, IDS_TITLE,
  454.       sizeof(Title), Title ) ;
  455.     WinLoadString ( Anchor, Library, IDS_ERROR_WINCREATEHELPINSTANCE,
  456.       sizeof(Message), Message ) ;
  457.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  458.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  459.   }
  460.  
  461.  /***************************************************************************
  462.   * Create the frame window.                            *
  463.   ***************************************************************************/
  464.  
  465.   fcdata.cb = sizeof(fcdata) ;
  466.   fcdata.flCreateFlags =
  467.     FCF_TITLEBAR | FCF_SYSMENU | FCF_BORDER |
  468.       FCF_ICON | FCF_MINBUTTON | FCF_NOBYTEALIGN | FCF_ACCELTABLE ;
  469.   fcdata.hmodResources = 0 ;
  470.   fcdata.idResources   = ID_MAIN ;
  471.  
  472.   hwndFrame = WinCreateWindow
  473.   (
  474.     HWND_DESKTOP,
  475.     WC_FRAME,
  476.     "",
  477.     0,
  478.     0, 0, 0, 0,
  479.     HWND_DESKTOP,
  480.     HWND_TOP,
  481.     ID_MAIN,
  482.     &fcdata,
  483.     NULL
  484.   ) ;
  485.  
  486.   if ( hwndFrame == NULL )
  487.   {
  488.     CHAR Message [200] ;
  489.     char Title [80] ;
  490.  
  491.     WinLoadString ( Anchor, Library, IDS_TITLE,
  492.       sizeof(Title), Title ) ;
  493.     WinLoadString ( Anchor, Library, IDS_ERROR_WINCREATEFRAME,
  494.       sizeof(Message), Message ) ;
  495.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  496.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  497.  
  498.     WinDestroyMsgQueue ( MessageQueue ) ;
  499.     WinTerminate ( Anchor ) ;
  500.     return ;
  501.   }
  502.  
  503.  /***************************************************************************
  504.   * Set the title.                                *
  505.   ***************************************************************************/
  506.  
  507.   WinLoadString ( Anchor, Library, IDS_TITLE, sizeof(Title), Title ) ;
  508.   WinSetWindowText ( hwndFrame, Title ) ;
  509.  
  510.  /***************************************************************************
  511.   * Associate the help instance with the frame window.                *
  512.   ***************************************************************************/
  513.  
  514.   if ( hwndHelp )
  515.   {
  516.     WinAssociateHelpInstance ( hwndHelp, hwndFrame ) ;
  517.   }
  518.  
  519.  /***************************************************************************
  520.   * Create client window.  If this fails, destroy frame and return.        *
  521.   ***************************************************************************/
  522.  
  523.   Parms.Anchor = Anchor ;
  524.   Parms.Library = Library ;
  525.  
  526.   hwndClient = WinCreateWindow
  527.   (
  528.     hwndFrame,
  529.     CLASS_NAME,
  530.     "",
  531.     0,
  532.     0, 0, 0, 0,
  533.     hwndFrame,
  534.     HWND_BOTTOM,
  535.     FID_CLIENT,
  536.     &Parms,
  537.     NULL
  538.   ) ;
  539.  
  540.   if ( hwndClient == NULL )
  541.   {
  542.     CHAR Message [200] ;
  543.     char Title [80] ;
  544.  
  545.     WinLoadString ( Anchor, Library, IDS_TITLE,
  546.       sizeof(Title), Title ) ;
  547.     WinLoadString ( Anchor, Library, IDS_ERROR_WINCREATEWINDOW,
  548.       sizeof(Message), Message ) ;
  549.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  550.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  551.  
  552.     WinDestroyWindow ( hwndFrame ) ;
  553.     WinDestroyMsgQueue ( MessageQueue ) ;
  554.     WinTerminate ( Anchor ) ;
  555.     return ;
  556.   }
  557.  
  558.  /***************************************************************************
  559.   * Wait for and process messages to the window's queue.  Terminate         *
  560.   *   when the WM_QUIT message is received.                    *
  561.   ***************************************************************************/
  562.  
  563.   while ( WinGetMsg ( Anchor, &QueueMessage, NULL, 0, 0 ) )
  564.   {
  565.     WinDispatchMsg ( Anchor, &QueueMessage ) ;
  566.   }
  567.  
  568.  /***************************************************************************
  569.   * Destroy the window.                             *
  570.   ***************************************************************************/
  571.  
  572.   WinDestroyWindow ( hwndFrame ) ;
  573.  
  574.  /***************************************************************************
  575.   * If help instance has been created, get rid of it.                *
  576.   ***************************************************************************/
  577.  
  578.   if ( hwndHelp )
  579.   {
  580.     WinDestroyHelpInstance ( hwndHelp ) ;
  581.   }
  582.  
  583.  /***************************************************************************
  584.   * Release the library, if one's been loaded.                              *
  585.   ***************************************************************************/
  586.  
  587.   if ( Library )
  588.   {
  589.     DosFreeModule ( Library ) ;
  590.   }
  591.  
  592.  /***************************************************************************
  593.   * Discard all that was requested of the system and terminate.         *
  594.   ***************************************************************************/
  595.  
  596.   WinDestroyMsgQueue ( MessageQueue ) ;
  597.  
  598.   WinTerminate ( Anchor ) ;
  599. }
  600.  
  601. /****************************************************************************
  602.  *                                        *
  603.  *    Window Message Processor                        *
  604.  *                                        *
  605.  ****************************************************************************/
  606.  
  607. static MRESULT EXPENTRY MessageProcessor
  608. (
  609.   HWND hwnd,
  610.   USHORT msg,
  611.   MPARAM mp1,
  612.   MPARAM mp2
  613. )
  614. {
  615.  /***************************************************************************
  616.   * Local Declarations                                *
  617.   ***************************************************************************/
  618.  
  619.   static METHOD Methods [] =
  620.   {
  621.     { WM_CREATE,        Create            },
  622.     { WM_DESTROY,        Destroy         },
  623.     { WM_SIZE,            Size            },
  624.     { WM_MOVE,            Size            },
  625.     { WM_SAVEAPPLICATION,    SaveApplication     },
  626.     { WM_PAINT,         Paint            },
  627.     { WM_BUTTON1DOWN,        ButtonDown        },
  628.     { WM_BUTTON2DOWN,        ButtonDown        },
  629.     { WM_BUTTON1DBLCLK,     ButtonDblClick        },
  630.     { WM_BUTTON2DBLCLK,     ButtonDblClick        },
  631.     { WM_PRESPARAMCHANGED,    PresParamChanged    },
  632.     { WM_SYSCOLORCHANGE,    SysColorChange        },
  633.     { WM_COMMAND,        Command         },
  634.     { HM_QUERY_KEYS_HELP,    QueryKeysHelp        },
  635.     { HM_ERROR,         HelpError        },
  636.     { HM_EXT_HELP_UNDEFINED,    ExtHelpUndefined    },
  637.     { HM_HELPSUBITEM_NOT_FOUND, HelpSubitemNotFound },
  638.     { WM_REFRESH,        Refresh         }
  639.   } ;
  640.  
  641.  /***************************************************************************
  642.   * Dispatch the message according to the method table and return the        *
  643.   *   result.  Any messages not defined above get handled by the system     *
  644.   *   default window processor.                         *
  645.   ***************************************************************************/
  646.  
  647.   return ( DispatchMessage ( hwnd, msg, mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), WinDefWindowProc ) ) ;
  648. }
  649.  
  650. /****************************************************************************
  651.  *                                        *
  652.  *    Create the main window.                         *
  653.  *                                        *
  654.  ****************************************************************************/
  655.  
  656. static MRESULT APIENTRY Create
  657. (
  658.   HWND hwnd,
  659.   USHORT msg,
  660.   MPARAM mp1,
  661.   MPARAM mp2
  662. )
  663. {
  664.  /***************************************************************************
  665.   *                Declarations                    *
  666.   ***************************************************************************/
  667.  
  668.   static MENUITEM MenuItems [] =
  669.   {
  670.     { MIT_END, MIS_TEXT,      0, IDM_SAVE_APPLICATION, NULL, 0 },
  671.     { MIT_END, MIS_TEXT,      0, IDM_RESET_DEFAULTS,   NULL, 0 },
  672.     { MIT_END, MIS_TEXT,      0, IDM_HIDE_CONTROLS,    NULL, 0 },
  673.     { MIT_END, MIS_TEXT,      0, IDM_SET_TIMER,        NULL, 0 },
  674.     { MIT_END, MIS_SUBMENU,   0, IDM_DISPLAY_ITEMS,    NULL, 0 },
  675.   } ;
  676.  
  677.   static MENUITEM MenuSeparator =
  678.     { MIT_END, MIS_SEPARATOR, 0, 0, NULL, 0 } ;
  679.  
  680.   static MENUITEM MenuAbout =
  681.     { MIT_END, MIS_TEXT, 0, IDM_ABOUT, NULL, 0 } ;
  682.  
  683.   static MENUITEM MenuHelp =
  684.     { MIT_END, MIS_HELP, 0, 0, NULL, 0 } ;
  685.  
  686.   static MENUITEM MenuItem =
  687.     { MIT_END, MIS_TEXT, 0, 0, NULL, 0 } ;
  688.  
  689.   char AboutText [80] ;
  690.   PDATA Data ;
  691.   USHORT Drive ;
  692.   char HelpText [80] ;
  693.   HPS hPS ;
  694.   HWND hwndFrame ;
  695.   SHORT i ;
  696.   PMONITOR_PARMS MonitorParms ;
  697.   PPARMS Parms ;
  698.   RECTL Rectangle ;
  699.   ULONG Size ;
  700.   PCHAR Swappath ;
  701.   char Title [80] ;
  702.  
  703.  /***************************************************************************
  704.   * Allocate instance data.                            *
  705.   ***************************************************************************/
  706.  
  707.   Data = malloc ( sizeof(DATA) ) ;
  708.  
  709.   memset ( Data, 0, sizeof(DATA) ) ;
  710.  
  711.   WinSetWindowPtr ( hwnd, QWL_USER, Data ) ;
  712.  
  713.  /***************************************************************************
  714.   * Grab any parameters from the WM_CREATE message.                *
  715.   ***************************************************************************/
  716.  
  717.   Parms = (PPARMS) PVOIDFROMMP ( mp1 ) ;
  718.  
  719.   Data->Anchor = Parms->Anchor ;
  720.   Data->Library = Parms->Library ;
  721.  
  722.  /***************************************************************************
  723.   * Get the current drive mask.                         *
  724.   ***************************************************************************/
  725.  
  726.   DosQCurDisk ( &Drive, &Data->Drives ) ;
  727.  
  728.  /***************************************************************************
  729.   * Get profile data.                                *
  730.   ***************************************************************************/
  731.  
  732.   GetProfile ( Data->Anchor, Data->Library, &Data->Profile ) ;
  733.  
  734.  /***************************************************************************
  735.   * Get country information.                            *
  736.   ***************************************************************************/
  737.  
  738.   {
  739.     COUNTRYCODE CountryCode ;
  740.     USHORT Count ;
  741.     USHORT Status ;
  742.  
  743.     CountryCode.country = 0 ;
  744.     CountryCode.codepage = 0 ;
  745.  
  746.     Status = DosGetCtryInfo ( sizeof(Data->CountryInfo), &CountryCode,
  747.       &Data->CountryInfo, &Count ) ;
  748.     if ( Status )
  749.     {
  750.       char Message [80] ;
  751.       WinLoadMessage ( Data->Anchor, Data->Library, IDS_ERROR_DOSGETCTRYINFO,
  752.     sizeof(Message), Message ) ;
  753.       Debug ( hwnd, Message, Status ) ;
  754.       Data->CountryInfo.fsDateFmt = DATEFMT_MM_DD_YY ;
  755.       Data->CountryInfo.fsTimeFmt = 0 ;
  756.       Data->CountryInfo.szDateSeparator[0] = '/' ;
  757.       Data->CountryInfo.szDateSeparator[1] = 0 ;
  758.       Data->CountryInfo.szTimeSeparator[0] = ':' ;
  759.       Data->CountryInfo.szTimeSeparator[1] = 0 ;
  760.       Data->CountryInfo.szThousandsSeparator[0] = ',' ;
  761.       Data->CountryInfo.szThousandsSeparator[1] = 0 ;
  762.     }
  763.   }
  764.  
  765.  /***************************************************************************
  766.   * Get the frame handle.                            *
  767.   ***************************************************************************/
  768.  
  769.   hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  770.  
  771.  /***************************************************************************
  772.   * Get the control window handles.                        *
  773.   ***************************************************************************/
  774.  
  775.   Data->hwndSysMenu  = WinWindowFromID ( hwndFrame, FID_SYSMENU  ) ;
  776.   Data->hwndTitleBar = WinWindowFromID ( hwndFrame, FID_TITLEBAR ) ;
  777.   Data->hwndMinMax   = WinWindowFromID ( hwndFrame, FID_MINMAX   ) ;
  778.  
  779.  /***************************************************************************
  780.   * Create the submenu window for Display Items.                *
  781.   ***************************************************************************/
  782.  
  783.   {
  784.     MENUITEM MenuItem ;
  785.     HWND hwndSysSubMenu ;
  786.     HWND hwndSubMenu ;
  787.     SHORT idSysMenu ;
  788.  
  789.     idSysMenu = SHORT1FROMMR ( WinSendMsg ( Data->hwndSysMenu, MM_ITEMIDFROMPOSITION, NULL, NULL ) ) ;
  790.     WinSendMsg ( Data->hwndSysMenu, MM_QUERYITEM, MPFROM2SHORT(idSysMenu,FALSE), MPFROMP(&MenuItem) ) ;
  791.     hwndSysSubMenu = MenuItem.hwndSubMenu ;
  792.  
  793.     hwndSubMenu = WinCreateWindow ( hwndSysSubMenu, WC_MENU, "",
  794.       WS_VISIBLE | WS_CLIPCHILDREN | WS_CLIPSIBLINGS,
  795.       0, 0, 0, 0, hwndSysSubMenu, HWND_TOP, IDM_DISPLAY_ITEMS, NULL, NULL ) ;
  796.  
  797.     MenuItems[IDM_DISPLAY_ITEMS-MenuItems[0].id].hwndSubMenu = hwndSubMenu ;
  798.   }
  799.  
  800.  /***************************************************************************
  801.   * Add basic extensions to the system menu.                    *
  802.   ***************************************************************************/
  803.  
  804.   AddSysMenuItem ( hwndFrame, &MenuSeparator, NULL ) ;
  805.  
  806.   for ( i=0; i<sizeof(MenuItems)/sizeof(MenuItems[0]); i++ )
  807.   {
  808.     char MenuText [80] ;
  809.     WinLoadString ( Data->Anchor, Data->Library, i+IDS_SAVE_APPLICATION, sizeof(MenuText), MenuText ) ;
  810.     AddSysMenuItem ( hwndFrame, MenuItems+i, MenuText ) ;
  811.   }
  812.  
  813.  /***************************************************************************
  814.   * Add 'About' to the system menu.                        *
  815.   ***************************************************************************/
  816.  
  817.   AddSysMenuItem ( hwndFrame, &MenuSeparator, NULL ) ;
  818.   WinLoadString ( Data->Anchor, Data->Library, IDS_ABOUT, sizeof(AboutText), AboutText ) ;
  819.   AddSysMenuItem ( hwndFrame, &MenuAbout, AboutText ) ;
  820.  
  821.  /***************************************************************************
  822.   * Add 'Help' to the system menu.                        *
  823.   ***************************************************************************/
  824.  
  825.   WinLoadString ( Data->Anchor, Data->Library, IDS_HELP, sizeof(HelpText), HelpText ) ;
  826.   AddSysMenuItem ( hwndFrame, &MenuHelp, HelpText ) ;
  827.  
  828.  /***************************************************************************
  829.   * Build the display items menu.                        *
  830.   ***************************************************************************/
  831.  
  832.   RebuildDisplayItems ( hwnd, Data ) ;
  833.  
  834.  /***************************************************************************
  835.   * Get the SWAPPATH statement from CONFIG.SYS.                 *
  836.   ***************************************************************************/
  837.  
  838.   Swappath = ScanSystemConfig ( "SWAPPATH" ) ;
  839.  
  840.   if ( Swappath == NULL )
  841.   {
  842.     Swappath = "C:\\OS2\\SYSTEM 0" ;
  843.   }
  844.  
  845.   strupr ( Swappath ) ;
  846.  
  847.   sscanf ( Swappath, "%s %i", Data->SwapPath, &Data->MinFree ) ;
  848.  
  849.  /***************************************************************************
  850.   * Find out where the spool work directory is.                 *
  851.   ***************************************************************************/
  852.  
  853.   Data->SpoolPath = NULL ;
  854.  
  855.   if ( PrfQueryProfileSize ( HINI_PROFILE, "PM_SPOOLER", "DIR", &Size ) )
  856.   {
  857.     Data->SpoolPath = malloc ( (int)Size ) ;
  858.     if ( Data->SpoolPath )
  859.     {
  860.       if ( PrfQueryProfileData ( HINI_PROFILE, "PM_SPOOLER", "DIR", Data->SpoolPath, &Size ) )
  861.       {
  862.     BYTE *p ;
  863.     p = strchr ( Data->SpoolPath, ';' ) ;
  864.     if ( p )
  865.     {
  866.       *p = 0 ;
  867.     }
  868.       }
  869.       else
  870.       {
  871.     free ( Data->SpoolPath ) ;
  872.     Data->SpoolPath = FALSE ;
  873.       }
  874.     }
  875.   }
  876.  
  877.  /***************************************************************************
  878.   * Calibrate the old-style load meter, if the high resolution timer's      *
  879.   *   available.                                *
  880.   ***************************************************************************/
  881.  
  882.   Data->MaxCount = CalibrateLoadMeter ( ) ;
  883.   Data->MaxCount = (ULONG) max ( 1L, Data->MaxCount ) ;
  884.  
  885.  /***************************************************************************
  886.   * Start the new load meter.                            *
  887.   ***************************************************************************/
  888.  
  889.   Data->IdleLoopTID = _beginthread ( CounterThread, NULL, 1024, &Data->IdleCounter ) ;
  890.   DosSetPrty ( PRTYS_THREAD, PRTYC_IDLETIME, PRTYD_MINIMUM, Data->IdleLoopTID ) ;
  891.   DosSuspendThread ( Data->IdleLoopTID ) ;
  892.  
  893.   Data->IdleCount = 0 ;
  894.   Data->IdleCounter = 0 ;
  895.  
  896.   if ( DosSemRequest ( &ItemSemaphore, 5000 ) )
  897.   {
  898.     Log ( "ERROR: Unable to lock item list to check CPU load item status.\n" ) ;
  899.     DosSemRequest ( &ItemSemaphore, SEM_INDEFINITE_WAIT ) ;
  900.   }
  901.   if ( Data->Profile.Items[ITEM_CPULOAD].Flag )
  902.   {
  903.     DosResumeThread ( Data->IdleLoopTID ) ;
  904.   }
  905.   DosSemClear ( &ItemSemaphore ) ;
  906.  
  907.   MonitorParms = malloc ( sizeof(*MonitorParms) ) ;
  908.   MonitorParms->Counter = & Data->IdleCounter ;
  909.   MonitorParms->Interval = & Data->Profile.TimerInterval ;
  910.   MonitorParms->Owner = hwnd ;
  911.   Data->MonitorLoopTID = _beginthread ( MonitorLoopThread, NULL, 8192, MonitorParms ) ;
  912.  
  913.  /***************************************************************************
  914.   * Add the program to the system task list.                    *
  915.   ***************************************************************************/
  916.  
  917.   WinLoadString ( Data->Anchor, Data->Library, IDS_TITLE, sizeof(Title), Title ) ;
  918.   Add2TaskList ( hwndFrame, Title ) ;
  919.  
  920.  /***************************************************************************
  921.   * Position & size the window.  For some reason, we must move and size     *
  922.   *   the window to the saved position before applying the resizing        *
  923.   *   function as fine-tuning.    Maybe the positioning request fails if        *
  924.   *   the window has no size?                            *
  925.   ***************************************************************************/
  926.  
  927.   WinSetWindowPos ( hwndFrame, HWND_BOTTOM,
  928.     Data->Profile.Position.x, Data->Profile.Position.y,
  929.     Data->Profile.Position.cx, Data->Profile.Position.cy,
  930.     SWP_SIZE | SWP_MOVE | SWP_ZORDER |
  931.     ( Data->Profile.Position.fs & SWP_MINIMIZE ) |
  932.     ( Data->Profile.Position.fs & SWP_RESTORE ) ) ;
  933.  
  934.   ResizeWindow ( hwnd, &Data->Profile ) ;
  935.  
  936.  /***************************************************************************
  937.   * Hide the controls if so configured.                     *
  938.   ***************************************************************************/
  939.  
  940.   if ( Data->Profile.HideControls
  941.     AND NOT ( Data->Profile.Position.fs & SWP_MINIMIZE ) )
  942.   {
  943.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  944.  
  945.     HideControls
  946.     (
  947.       TRUE,
  948.       hwndFrame,
  949.       Data->hwndSysMenu,
  950.       Data->hwndTitleBar,
  951.       Data->hwndMinMax
  952.     ) ;
  953.   }
  954.  
  955.  /***************************************************************************
  956.   * Get the saved presentation parameters and reinstate them.            *
  957.   ***************************************************************************/
  958.  
  959.   if ( Data->Profile.fFontNameSize )
  960.   {
  961.     WinSetPresParam ( hwnd, PP_FONTNAMESIZE,
  962.       strlen(Data->Profile.FontNameSize)+1, Data->Profile.FontNameSize ) ;
  963.   }
  964.  
  965.   if ( Data->Profile.fBackColor )
  966.   {
  967.     WinSetPresParam ( hwnd, PP_BACKGROUNDCOLOR,
  968.       sizeof(Data->Profile.BackColor), &Data->Profile.BackColor ) ;
  969.   }
  970.  
  971.   if ( Data->Profile.fTextColor )
  972.   {
  973.     WinSetPresParam ( hwnd, PP_FOREGROUNDCOLOR,
  974.       sizeof(Data->Profile.TextColor), &Data->Profile.TextColor ) ;
  975.   }
  976.  
  977.  /***************************************************************************
  978.   * Determine our font size.                            *
  979.   ***************************************************************************/
  980.  
  981.   hPS = WinGetPS ( hwnd ) ;
  982.   WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  983.   WinDrawText ( hPS, 1, " ", &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  984.   Data->Width  = Rectangle.xRight - Rectangle.xLeft ;
  985.   Data->Height = Rectangle.yTop - Rectangle.yBottom ;
  986.   WinReleasePS ( hPS ) ;
  987.  
  988.  /***************************************************************************
  989.   * Now that the window's in order, make it visible.                        *
  990.   ***************************************************************************/
  991.  
  992.   WinShowWindow ( hwndFrame, TRUE ) ;
  993.  
  994.  /***************************************************************************
  995.   * Success?  Return no error.                            *
  996.   ***************************************************************************/
  997.  
  998.   return ( 0 ) ;
  999.  
  1000.   hwnd = hwnd ;
  1001.   msg = msg ;
  1002.   mp1 = mp1 ;
  1003.   mp2 = mp2 ;
  1004. }
  1005.  
  1006. /****************************************************************************
  1007.  *                                        *
  1008.  *    Destroy main window.                            *
  1009.  *                                        *
  1010.  ****************************************************************************/
  1011.  
  1012. static MRESULT APIENTRY Destroy
  1013. (
  1014.   HWND hwnd,
  1015.   USHORT msg,
  1016.   MPARAM mp1,
  1017.   MPARAM mp2
  1018. )
  1019. {
  1020.  /***************************************************************************
  1021.   *                Declarations                    *
  1022.   ***************************************************************************/
  1023.  
  1024.   PDATA Data ;
  1025.  
  1026.  /***************************************************************************
  1027.   * Find the instance data.                            *
  1028.   ***************************************************************************/
  1029.  
  1030.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1031.  
  1032.  /***************************************************************************
  1033.   * Release the instance memory.                        *
  1034.   ***************************************************************************/
  1035.  
  1036.   free ( Data ) ;
  1037.  
  1038.  /***************************************************************************
  1039.   * We're done.                                                             *
  1040.   ***************************************************************************/
  1041.  
  1042.   return ( MRFROMSHORT ( 0 ) ) ;
  1043.  
  1044.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1045. }
  1046.  
  1047. /****************************************************************************
  1048.  *                                        *
  1049.  *    Process window resize message.                        *
  1050.  *                                        *
  1051.  ****************************************************************************/
  1052.  
  1053. static MRESULT APIENTRY Size
  1054. (
  1055.   HWND hwnd,
  1056.   USHORT msg,
  1057.   MPARAM mp1,
  1058.   MPARAM mp2
  1059. )
  1060. {
  1061.  /***************************************************************************
  1062.   *                Declarations                    *
  1063.   ***************************************************************************/
  1064.  
  1065.   PDATA Data ;
  1066.  
  1067.   HWND hwndFrame ;
  1068.   SWP Position ;
  1069.  
  1070.  /***************************************************************************
  1071.   * Find the instance data.                            *
  1072.   ***************************************************************************/
  1073.  
  1074.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1075.  
  1076.  /***************************************************************************
  1077.   * Find out the window's new position and size.                            *
  1078.   ***************************************************************************/
  1079.  
  1080.   hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  1081.  
  1082.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  1083.  
  1084.   if ( NOT ( Position.fs & SWP_MINIMIZE )
  1085.     AND NOT ( Position.fs & SWP_MAXIMIZE ) )
  1086.   {
  1087.     Data->Profile.Position.x = Position.x ;
  1088.     Data->Profile.Position.y = Position.y ;
  1089.  
  1090.     Data->Profile.Position.cx = Position.cx ;
  1091.     Data->Profile.Position.cy = Position.cy ;
  1092.   }
  1093.  
  1094.  /***************************************************************************
  1095.   * If hiding the controls . . .                        *
  1096.   ***************************************************************************/
  1097.  
  1098.   if ( Data->Profile.HideControls )
  1099.   {
  1100.  
  1101.    /*************************************************************************
  1102.     * If changing to or from minimized state . . .                *
  1103.     *************************************************************************/
  1104.  
  1105.     if ( ( Position.fs & SWP_MINIMIZE ) != ( Data->Profile.Position.fs & SWP_MINIMIZE ) )
  1106.     {
  1107.  
  1108.      /***********************************************************************
  1109.       * Hide the controls if no longer minimized.                *
  1110.       ***********************************************************************/
  1111.  
  1112.       HideControls
  1113.       (
  1114.     NOT ( Position.fs & SWP_MINIMIZE ),
  1115.     hwndFrame,
  1116.     Data->hwndSysMenu,
  1117.     Data->hwndTitleBar,
  1118.     Data->hwndMinMax
  1119.       ) ;
  1120.     }
  1121.   }
  1122.  
  1123.   Data->Profile.Position.fs = Position.fs ;
  1124.  
  1125.  /***************************************************************************
  1126.   * We're done.                                                             *
  1127.   ***************************************************************************/
  1128.  
  1129.   return ( 0 ) ;
  1130.  
  1131.   hwnd = hwnd ;
  1132.   msg = msg ;
  1133.   mp1 = mp1 ;
  1134.   mp2 = mp2 ;
  1135. }
  1136.  
  1137. /****************************************************************************
  1138.  *                                        *
  1139.  *    Process SAVE APPLICATION message.                    *
  1140.  *                                        *
  1141.  ****************************************************************************/
  1142.  
  1143. static MRESULT APIENTRY SaveApplication
  1144. (
  1145.   HWND hwnd,
  1146.   USHORT msg,
  1147.   MPARAM mp1,
  1148.   MPARAM mp2
  1149. )
  1150. {
  1151.  /***************************************************************************
  1152.   *                Declarations                    *
  1153.   ***************************************************************************/
  1154.  
  1155.   PDATA Data ;
  1156.  
  1157.  /***************************************************************************
  1158.   * Find the instance data.                            *
  1159.   ***************************************************************************/
  1160.  
  1161.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1162.  
  1163.  /***************************************************************************
  1164.   * Call function to put all profile data out to the system.            *
  1165.   ***************************************************************************/
  1166.  
  1167.   PutProfile ( &Data->Profile ) ;
  1168.  
  1169.  /***************************************************************************
  1170.   * We're done.  Let the system complete default processing.                *
  1171.   ***************************************************************************/
  1172.  
  1173.   return ( WinDefWindowProc ( hwnd, WM_SAVEAPPLICATION, 0, 0 ) ) ;
  1174.  
  1175.   hwnd = hwnd ;
  1176.   msg = msg ;
  1177.   mp1 = mp1 ;
  1178.   mp2 = mp2 ;
  1179. }
  1180.  
  1181. /****************************************************************************
  1182.  *                                        *
  1183.  *    Repaint entire window.                            *
  1184.  *                                        *
  1185.  ****************************************************************************/
  1186.  
  1187. static MRESULT APIENTRY Paint
  1188. (
  1189.   HWND hwnd,
  1190.   USHORT msg,
  1191.   MPARAM mp1,
  1192.   MPARAM mp2
  1193. )
  1194. {
  1195.  /***************************************************************************
  1196.   *                Declarations                    *
  1197.   ***************************************************************************/
  1198.  
  1199.   PDATA Data ;
  1200.   HPS hPS ;
  1201.   RECTL Rectangle ;
  1202.  
  1203.  /***************************************************************************
  1204.   * Find the instance data.                            *
  1205.   ***************************************************************************/
  1206.  
  1207.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1208.  
  1209.  /***************************************************************************
  1210.   * Get presentation space and make it use RGB colors.                *
  1211.   ***************************************************************************/
  1212.  
  1213.   hPS = WinBeginPaint ( hwnd, NULL, NULL ) ;
  1214.   GpiCreateLogColorTable ( hPS, LCOL_RESET, LCOLF_RGB, 0L, 0L, NULL ) ;
  1215.  
  1216.  /***************************************************************************
  1217.   * Clear the window.                                *
  1218.   ***************************************************************************/
  1219.  
  1220.   WinQueryWindowRect ( hwnd, &Rectangle ) ;
  1221.  
  1222.   GpiMove ( hPS, (PPOINTL) &Rectangle.xLeft ) ;
  1223.   GpiSetColor ( hPS, Data->Profile.BackColor ) ;
  1224.   GpiBox ( hPS, DRO_FILL, (PPOINTL) &Rectangle.xRight, 0L, 0L ) ;
  1225.  
  1226.  /***************************************************************************
  1227.   * Release presentation space.                         *
  1228.   ***************************************************************************/
  1229.  
  1230.   WinEndPaint ( hPS ) ;
  1231.  
  1232.  /***************************************************************************
  1233.   * Update the window and return.                        *
  1234.   ***************************************************************************/
  1235.  
  1236.   UpdateWindow ( hwnd, Data, TRUE ) ;
  1237.  
  1238.   return ( 0 ) ;
  1239.  
  1240.   hwnd = hwnd ;
  1241.   msg = msg ;
  1242.   mp1 = mp1 ;
  1243.   mp2 = mp2 ;
  1244. }
  1245.  
  1246. /****************************************************************************
  1247.  *                                        *
  1248.  *    Process commands received by Main Window                *
  1249.  *                                        *
  1250.  ****************************************************************************/
  1251.  
  1252. static MRESULT APIENTRY Command
  1253. (
  1254.   HWND hwnd,
  1255.   USHORT msg,
  1256.   MPARAM mp1,
  1257.   MPARAM mp2
  1258. )
  1259. {
  1260.  /***************************************************************************
  1261.   * Local Declarations                                *
  1262.   ***************************************************************************/
  1263.  
  1264.   static METHOD Methods [] =
  1265.   {
  1266.     { IDM_SAVE_APPLICATION, SaveApplication },
  1267.     { IDM_RESET_DEFAULTS,   ResetDefaults   },
  1268.     { IDM_HIDE_CONTROLS,    HideControlsCmd },
  1269.     { IDM_SET_TIMER,        SetTimer        },
  1270.     { IDM_EXIT,         Exit        },
  1271.     { IDM_ABOUT,        About        },
  1272.   } ;
  1273.  
  1274.   USHORT Command ;
  1275.   PDATA Data ;
  1276.   short i ;
  1277.  
  1278.  /***************************************************************************
  1279.   * Find the instance data.                            *
  1280.   ***************************************************************************/
  1281.  
  1282.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1283.  
  1284.  /***************************************************************************
  1285.   * Process indicated command . . .                        *
  1286.   ***************************************************************************/
  1287.  
  1288.   Command = SHORT1FROMMP ( mp1 ) ;
  1289.  
  1290.  /***************************************************************************
  1291.   * Process display item commands.                        *
  1292.   ***************************************************************************/
  1293.  
  1294.   if ( DosSemRequest ( &ItemSemaphore, 5000 ) )
  1295.   {
  1296.     Log ( "ERROR: Unable to lock item list to process display item commands.\n" ) ;
  1297.     DosSemRequest ( &ItemSemaphore, SEM_INDEFINITE_WAIT ) ;
  1298.   }
  1299.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  1300.   {
  1301.     PITEM Item = & Data->Profile.Items [i] ;
  1302.  
  1303.     if ( Command == Item->MenuId )
  1304.     {
  1305.       HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  1306.  
  1307.       Item->Flag = Item->Flag ? FALSE : TRUE ;
  1308.  
  1309.       if ( i == ITEM_CPULOAD )
  1310.       {
  1311.     if ( Item->Flag )
  1312.       DosResumeThread ( Data->IdleLoopTID ) ;
  1313.     else
  1314.       DosSuspendThread ( Data->IdleLoopTID ) ;
  1315.       }
  1316.  
  1317.       CheckMenuItem ( hwndFrame, FID_SYSMENU, Item->MenuId, Item->Flag ) ;
  1318.  
  1319.       DosSemClear ( &ItemSemaphore ) ;
  1320.  
  1321.       ResizeWindow ( hwnd, &Data->Profile ) ;
  1322.  
  1323.       return ( MRFROMSHORT ( 0 ) ) ;
  1324.     }
  1325.   }
  1326.   DosSemClear ( &ItemSemaphore ) ;
  1327.  
  1328.  /***************************************************************************
  1329.   * Dispatch all other commands through the method table.            *
  1330.   ***************************************************************************/
  1331.  
  1332.   return ( DispatchMessage ( hwnd, SHORT1FROMMP(mp1), mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), NULL ) ) ;
  1333.  
  1334.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1335. }
  1336.  
  1337. /****************************************************************************
  1338.  *                                        *
  1339.  *    Process Reset Defaults menu command.                    *
  1340.  *                                        *
  1341.  ****************************************************************************/
  1342.  
  1343. static MRESULT APIENTRY ResetDefaults
  1344. ( 
  1345.   HWND hwnd, 
  1346.   USHORT msg, 
  1347.   MPARAM mp1, 
  1348.   MPARAM mp2
  1349. )
  1350. {
  1351.  /***************************************************************************
  1352.   * Reset all profile data for this program.                    *
  1353.   ***************************************************************************/
  1354.  
  1355.   PrfWriteProfileData ( HINI_USERPROFILE, PROGRAM_NAME, NULL, NULL, 0 ) ;
  1356.  
  1357.  /***************************************************************************
  1358.   * Reset the program's presentation parameters.                            *
  1359.   ***************************************************************************/
  1360.  
  1361.   WinRemovePresParam ( hwnd, PP_FONTNAMESIZE ) ;
  1362.   WinRemovePresParam ( hwnd, PP_FOREGROUNDCOLOR ) ;
  1363.   WinRemovePresParam ( hwnd, PP_BACKGROUNDCOLOR ) ;
  1364.  
  1365.  /***************************************************************************
  1366.   * Done.                                    *
  1367.   ***************************************************************************/
  1368.  
  1369.   return ( MRFROMSHORT ( 0 ) ) ;
  1370.  
  1371.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1372. }
  1373.  
  1374. /****************************************************************************
  1375.  *                                        *
  1376.  *    Process Hide Controls menu command.                    *
  1377.  *                                        *
  1378.  ****************************************************************************/
  1379.  
  1380. static MRESULT APIENTRY HideControlsCmd
  1381. ( 
  1382.   HWND hwnd, 
  1383.   USHORT msg, 
  1384.   MPARAM mp1, 
  1385.   MPARAM mp2
  1386. )
  1387. {
  1388.  /***************************************************************************
  1389.   * Local Declarations.                             *
  1390.   ***************************************************************************/
  1391.  
  1392.   PDATA Data ;
  1393.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  1394.  
  1395.  /***************************************************************************
  1396.   * Find the instance data.                            *
  1397.   ***************************************************************************/
  1398.  
  1399.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1400.  
  1401.  /***************************************************************************
  1402.   * Toggle the Hide Controls setting.                        *
  1403.   ***************************************************************************/
  1404.  
  1405.   Data->Profile.HideControls = Data->Profile.HideControls ? FALSE : TRUE ;
  1406.   Data->Profile.fHideControls = TRUE ;
  1407.  
  1408.  /***************************************************************************
  1409.   * If controls aren't hidden yet, update the menu check-mark.              *
  1410.   ***************************************************************************/
  1411.  
  1412.   if ( Data->Profile.HideControls )
  1413.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  1414.  
  1415.  /***************************************************************************
  1416.   * If not minimized right now, hide or reveal the controls.            *
  1417.   ***************************************************************************/
  1418.  
  1419.   if ( NOT ( Data->Profile.Position.fs & SWP_MINIMIZE ) )
  1420.   {
  1421.     HideControls
  1422.     (
  1423.       Data->Profile.HideControls,
  1424.       hwndFrame,
  1425.       Data->hwndSysMenu,
  1426.       Data->hwndTitleBar,
  1427.       Data->hwndMinMax
  1428.     ) ;
  1429.   }
  1430.  
  1431.  /***************************************************************************
  1432.   * If controls are no longer hidden, update the menu check-mark.        *
  1433.   ***************************************************************************/
  1434.  
  1435.   if ( NOT Data->Profile.HideControls )
  1436.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  1437.  
  1438.  /***************************************************************************
  1439.   * Done.                                    *
  1440.   ***************************************************************************/
  1441.  
  1442.   return ( MRFROMSHORT ( 0 ) ) ;
  1443.  
  1444.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1445. }
  1446.  
  1447. /****************************************************************************
  1448.  *                                        *
  1449.  *    Process Set Timer menu command.                     *
  1450.  *                                        *
  1451.  ****************************************************************************/
  1452.  
  1453. static MRESULT APIENTRY SetTimer
  1454. ( 
  1455.   HWND hwnd, 
  1456.   USHORT msg, 
  1457.   MPARAM mp1, 
  1458.   MPARAM mp2
  1459. )
  1460. {
  1461.  /***************************************************************************
  1462.   * Local Declarations.                             *
  1463.   ***************************************************************************/
  1464.  
  1465.   PDATA Data ;
  1466.   SETTIMER_PARMS Parms ;
  1467.  
  1468.  /***************************************************************************
  1469.   * Find the instance data.                            *
  1470.   ***************************************************************************/
  1471.  
  1472.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1473.  
  1474.  /***************************************************************************
  1475.   * Invoke the Set Timer dialog.                        *
  1476.   ***************************************************************************/
  1477.  
  1478.   Parms.id = IDD_SET_TIMER ;
  1479.   Parms.hwndHelp = WinQueryHelpInstance ( hwnd ) ;
  1480.   Parms.TimerInterval = & Data->Profile.TimerInterval ;
  1481.  
  1482.   WinDlgBox ( HWND_DESKTOP, hwnd, SetTimerProcessor,
  1483.     Data->Library, IDD_SET_TIMER, &Parms ) ;
  1484.  
  1485.  /***************************************************************************
  1486.   * Done.                                    *
  1487.   ***************************************************************************/
  1488.  
  1489.   return ( MRFROMSHORT ( 0 ) ) ;
  1490.  
  1491.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1492. }
  1493.  
  1494. /****************************************************************************
  1495.  *                                        *
  1496.  *    Process About menu command.                        *
  1497.  *                                        *
  1498.  ****************************************************************************/
  1499.  
  1500. static MRESULT APIENTRY About
  1501. ( 
  1502.   HWND hwnd, 
  1503.   USHORT msg, 
  1504.   MPARAM mp1, 
  1505.   MPARAM mp2
  1506. )
  1507. {
  1508.  /***************************************************************************
  1509.   * Local Declarations                                *
  1510.   ***************************************************************************/
  1511.  
  1512.   PDATA Data ;
  1513.   ABOUT_PARMS Parms ;
  1514.  
  1515.  /***************************************************************************
  1516.   * Find the instance data.                            *
  1517.   ***************************************************************************/
  1518.  
  1519.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1520.  
  1521.  /***************************************************************************
  1522.   * Invoke the About dialog.                            *
  1523.   ***************************************************************************/
  1524.  
  1525.   Parms.id = IDD_ABOUT ;
  1526.   Parms.hwndHelp = WinQueryHelpInstance ( hwnd ) ;
  1527.  
  1528.   WinDlgBox ( HWND_DESKTOP, hwnd, AboutProcessor,
  1529.     Data->Library, IDD_ABOUT, &Parms ) ;
  1530.  
  1531.  /***************************************************************************
  1532.   * Done.                                    *
  1533.   ***************************************************************************/
  1534.  
  1535.   return ( MRFROMSHORT ( 0 ) ) ;
  1536.  
  1537.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1538. }
  1539.  
  1540. /****************************************************************************
  1541.  *                                        *
  1542.  *    Process Mouse Button being pressed.                    *
  1543.  *                                        *
  1544.  ****************************************************************************/
  1545.  
  1546. static MRESULT APIENTRY ButtonDown
  1547. (
  1548.   HWND hwnd,
  1549.   USHORT msg,
  1550.   MPARAM mp1,
  1551.   MPARAM mp2
  1552. )
  1553. {
  1554.  /***************************************************************************
  1555.   * Local Declarations                                *
  1556.   ***************************************************************************/
  1557.  
  1558.   PDATA Data ;
  1559.   HWND hwndFrame ;
  1560.   SWP Position ;
  1561.   TRACKINFO TrackInfo ;
  1562.  
  1563.  /***************************************************************************
  1564.   * Find the instance data.                            *
  1565.   ***************************************************************************/
  1566.  
  1567.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1568.  
  1569.  /***************************************************************************
  1570.   * Determine the new window position.                        *
  1571.   ***************************************************************************/
  1572.  
  1573.   memset ( &TrackInfo, 0, sizeof(TrackInfo) ) ;
  1574.  
  1575.   TrackInfo.cxBorder = 1 ;
  1576.   TrackInfo.cyBorder = 1 ;
  1577.   TrackInfo.cxGrid = 1 ;
  1578.   TrackInfo.cyGrid = 1 ;
  1579.   TrackInfo.cxKeyboard = 8 ;
  1580.   TrackInfo.cyKeyboard = 8 ;
  1581.  
  1582.   hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  1583.  
  1584.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  1585.   TrackInfo.rclTrack.xLeft   = Position.x ;
  1586.   TrackInfo.rclTrack.xRight  = Position.x + Position.cx ;
  1587.   TrackInfo.rclTrack.yBottom = Position.y ;
  1588.   TrackInfo.rclTrack.yTop    = Position.y + Position.cy ;
  1589.  
  1590.   WinQueryWindowPos ( HWND_DESKTOP, &Position ) ;
  1591.   TrackInfo.rclBoundary.xLeft   = Position.x ;
  1592.   TrackInfo.rclBoundary.xRight  = Position.x + Position.cx ;
  1593.   TrackInfo.rclBoundary.yBottom = Position.y ;
  1594.   TrackInfo.rclBoundary.yTop    = Position.y + Position.cy ;
  1595.  
  1596.   TrackInfo.ptlMinTrackSize.x = 0 ;
  1597.   TrackInfo.ptlMinTrackSize.y = 0 ;
  1598.   TrackInfo.ptlMaxTrackSize.x = Position.cx ;
  1599.   TrackInfo.ptlMaxTrackSize.y = Position.cy ;
  1600.  
  1601.   TrackInfo.fs = TF_MOVE | TF_STANDARD | TF_ALLINBOUNDARY ;
  1602.  
  1603.   if ( WinTrackRect ( HWND_DESKTOP, NULL, &TrackInfo ) )
  1604.   {
  1605.     WinSetWindowPos ( hwndFrame, NULL,
  1606.       (SHORT) TrackInfo.rclTrack.xLeft,
  1607.       (SHORT) TrackInfo.rclTrack.yBottom,
  1608.       0, 0, SWP_MOVE ) ;
  1609.   }
  1610.  
  1611.  /***************************************************************************
  1612.   * Return through the default processor, letting window activation        *
  1613.   *   and other system functions occur.                     *
  1614.   ***************************************************************************/
  1615.  
  1616.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1617.  
  1618.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1619. }
  1620.  
  1621. /****************************************************************************
  1622.  *                                        *
  1623.  *    Process Mouse Button having been double-clicked.            *
  1624.  *                                        *
  1625.  ****************************************************************************/
  1626.  
  1627. static MRESULT APIENTRY ButtonDblClick
  1628. (
  1629.   HWND hwnd,
  1630.   USHORT msg,
  1631.   MPARAM mp1,
  1632.   MPARAM mp2
  1633. )
  1634. {
  1635.  /***************************************************************************
  1636.   * Send message to self to stop hiding the controls.                *
  1637.   ***************************************************************************/
  1638.  
  1639.   WinPostMsg ( hwnd, WM_COMMAND,
  1640.     MPFROM2SHORT ( IDM_HIDE_CONTROLS, 0 ),
  1641.     MPFROM2SHORT ( CMDSRC_OTHER, TRUE ) ) ;
  1642.  
  1643.  /***************************************************************************
  1644.   * Return through the default processor, letting window activation        *
  1645.   *   and other system functions occur.                     *
  1646.   ***************************************************************************/
  1647.  
  1648.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1649.  
  1650.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1651. }
  1652.  
  1653. /****************************************************************************
  1654.  *                                        *
  1655.  *    Process Presentation Parameter Changed notification.            *
  1656.  *                                        *
  1657.  ****************************************************************************/
  1658.  
  1659. static MRESULT APIENTRY PresParamChanged
  1660. (
  1661.   HWND hwnd,
  1662.   USHORT msg,
  1663.   MPARAM mp1,
  1664.   MPARAM mp2
  1665. )
  1666. {
  1667.  /***************************************************************************
  1668.   * Local Declarations                                *
  1669.   ***************************************************************************/
  1670.  
  1671.   PDATA Data ;
  1672.   HPS hPS ;
  1673.   ULONG ppid ;
  1674.   RECTL Rectangle ;
  1675.  
  1676.  /***************************************************************************
  1677.   * Find the instance data.                            *
  1678.   ***************************************************************************/
  1679.  
  1680.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1681.  
  1682.  /***************************************************************************
  1683.   * Get the presentation parameter that changed.                *
  1684.   ***************************************************************************/
  1685.  
  1686.   switch ( LONGFROMMP(mp1) )
  1687.   {
  1688.  
  1689.    /*************************************************************************
  1690.     * If font, note the fact that we now have a font to be saved as        *
  1691.     *    part of the configuration.  Get the font metrics and resize        *
  1692.     *    the window appropriately.                        *
  1693.     *************************************************************************/
  1694.  
  1695.     case PP_FONTNAMESIZE:
  1696.     {
  1697.       if ( WinQueryPresParam ( hwnd, PP_FONTNAMESIZE, 0, &ppid,
  1698.     sizeof(Data->Profile.FontNameSize), &Data->Profile.FontNameSize,
  1699.     0 ) )
  1700.       {
  1701.     Data->Profile.fFontNameSize = TRUE ;
  1702.       }
  1703.       else
  1704.       {
  1705.     strcpy ( Data->Profile.FontNameSize, "" ) ;
  1706.     Data->Profile.fFontNameSize = FALSE ;
  1707.     PrfWriteProfileData ( HINI_USERPROFILE, PROGRAM_NAME, "FontNameSize", NULL, 0 ) ;
  1708.       }
  1709.  
  1710.       hPS = WinGetPS ( hwnd ) ;
  1711.       WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  1712.       WinDrawText ( hPS, 1, " ", &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  1713.       Data->Width  = Rectangle.xRight - Rectangle.xLeft ;
  1714.       Data->Height = Rectangle.yTop - Rectangle.yBottom ;
  1715.       WinReleasePS ( hPS ) ;
  1716.       ResizeWindow ( hwnd, &Data->Profile ) ;
  1717.       break ;
  1718.     }
  1719.  
  1720.    /*************************************************************************
  1721.     * If background color, note the fact and repaint the window.        *
  1722.     *************************************************************************/
  1723.  
  1724.     case PP_BACKGROUNDCOLOR:
  1725.     {
  1726.       if ( WinQueryPresParam ( hwnd, PP_BACKGROUNDCOLOR, 0, &ppid,
  1727.     sizeof(Data->Profile.BackColor), &Data->Profile.BackColor, 0 ) )
  1728.       {
  1729.     Data->Profile.fBackColor = TRUE ;
  1730.       }
  1731.       else
  1732.       {
  1733.     Data->Profile.BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  1734.     Data->Profile.fBackColor = FALSE ;
  1735.     PrfWriteProfileData ( HINI_USERPROFILE, PROGRAM_NAME, "BackgroundColor", NULL, 0 ) ;
  1736.       }
  1737.       WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  1738.       break ;
  1739.     }
  1740.  
  1741.    /*************************************************************************
  1742.     * If foreground color, note the fact and repaint the window.        *
  1743.     *************************************************************************/
  1744.  
  1745.     case PP_FOREGROUNDCOLOR:
  1746.     {
  1747.       if ( WinQueryPresParam ( hwnd, PP_FOREGROUNDCOLOR, 0, &ppid,
  1748.     sizeof(Data->Profile.TextColor), &Data->Profile.TextColor, 0 ) )
  1749.       {
  1750.     Data->Profile.fTextColor = TRUE ;
  1751.       }
  1752.       else
  1753.       {
  1754.     Data->Profile.TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  1755.     Data->Profile.fTextColor = FALSE ;
  1756.     PrfWriteProfileData ( HINI_USERPROFILE, PROGRAM_NAME, "ForegroundColor", NULL, 0 ) ;
  1757.       }
  1758.       WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  1759.       break ;
  1760.     }
  1761.   }
  1762.  
  1763.  /***************************************************************************
  1764.   * Return through the default processor, letting window activation        *
  1765.   *   and other system functions occur.                     *
  1766.   ***************************************************************************/
  1767.  
  1768.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1769.  
  1770.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1771. }
  1772.  
  1773. /****************************************************************************
  1774.  *                                        *
  1775.  *    Process System Color Change notification.                *
  1776.  *                                        *
  1777.  ****************************************************************************/
  1778.  
  1779. static MRESULT APIENTRY SysColorChange
  1780. (
  1781.   HWND hwnd,
  1782.   USHORT msg,
  1783.   MPARAM mp1,
  1784.   MPARAM mp2
  1785. )
  1786. {
  1787.  /***************************************************************************
  1788.   * Local Declarations                                *
  1789.   ***************************************************************************/
  1790.  
  1791.   PDATA Data ;
  1792.  
  1793.  /***************************************************************************
  1794.   * Find the instance data.                            *
  1795.   ***************************************************************************/
  1796.  
  1797.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1798.  
  1799.  /***************************************************************************
  1800.   * If we aren't using custom colors, then query for the new defaults.      *
  1801.   ***************************************************************************/
  1802.  
  1803.   if ( NOT Data->Profile.fBackColor )
  1804.   {
  1805.     Data->Profile.BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  1806.   }
  1807.  
  1808.   if ( NOT Data->Profile.fTextColor )
  1809.   {
  1810.     Data->Profile.TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  1811.   }
  1812.  
  1813.  /***************************************************************************
  1814.   * Return value must be NULL, according to the documentation.            *
  1815.   ***************************************************************************/
  1816.  
  1817.   return ( MRFROMP ( NULL ) ) ;
  1818.  
  1819.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1820. }
  1821.  
  1822. /****************************************************************************
  1823.  *                                        *
  1824.  *    Process Query for Keys Help resource id.                *
  1825.  *                                        *
  1826.  ****************************************************************************/
  1827.  
  1828. static MRESULT APIENTRY QueryKeysHelp
  1829. (
  1830.   HWND hwnd,
  1831.   USHORT msg,
  1832.   MPARAM mp1,
  1833.   MPARAM mp2
  1834. )
  1835. {
  1836.  /***************************************************************************
  1837.   * Simply return the ID of the Keys Help panel.                *
  1838.   ***************************************************************************/
  1839.  
  1840.   return ( (MRESULT) IDM_KEYS_HELP ) ;
  1841.  
  1842.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1843. }
  1844.  
  1845. /****************************************************************************
  1846.  *                                        *
  1847.  *    Process Help Manager Error                        *
  1848.  *                                        *
  1849.  ****************************************************************************/
  1850.  
  1851. static MRESULT APIENTRY HelpError
  1852. ( 
  1853.   HWND hwnd, 
  1854.   USHORT msg, 
  1855.   MPARAM mp1, 
  1856.   MPARAM mp2
  1857. )
  1858. {
  1859.  /***************************************************************************
  1860.   * Local Declarations                                *
  1861.   ***************************************************************************/
  1862.  
  1863.   static struct
  1864.   {
  1865.     ULONG Error ;
  1866.     USHORT StringId ;
  1867.   }
  1868.   HelpErrors [] =
  1869.   {
  1870.     { HMERR_NO_FRAME_WND_IN_CHAIN,     IDS_HMERR_NO_FRAME_WND_IN_CHAIN },
  1871.     { HMERR_INVALID_ASSOC_APP_WND,     IDS_HMERR_INVALID_ASSOC_APP_WND },
  1872.     { HMERR_INVALID_ASSOC_HELP_INST,   IDS_HMERR_INVALID_ASSOC_HELP_IN },
  1873.     { HMERR_INVALID_DESTROY_HELP_INST, IDS_HMERR_INVALID_DESTROY_HELP_ },
  1874.     { HMERR_NO_HELP_INST_IN_CHAIN,     IDS_HMERR_NO_HELP_INST_IN_CHAIN },
  1875.     { HMERR_INVALID_HELP_INSTANCE_HDL, IDS_HMERR_INVALID_HELP_INSTANCE },
  1876.     { HMERR_INVALID_QUERY_APP_WND,     IDS_HMERR_INVALID_QUERY_APP_WND },
  1877.     { HMERR_HELP_INST_CALLED_INVALID,  IDS_HMERR_HELP_INST_CALLED_INVA },
  1878.     { HMERR_HELPTABLE_UNDEFINE,        IDS_HMERR_HELPTABLE_UNDEFINE    },
  1879.     { HMERR_HELP_INSTANCE_UNDEFINE,    IDS_HMERR_HELP_INSTANCE_UNDEFIN },
  1880.     { HMERR_HELPITEM_NOT_FOUND,        IDS_HMERR_HELPITEM_NOT_FOUND    },
  1881.     { HMERR_INVALID_HELPSUBITEM_SIZE,  IDS_HMERR_INVALID_HELPSUBITEM_S },
  1882.     { HMERR_HELPSUBITEM_NOT_FOUND,     IDS_HMERR_HELPSUBITEM_NOT_FOUND },
  1883.     { HMERR_INDEX_NOT_FOUND,           IDS_HMERR_INDEX_NOT_FOUND       },
  1884.     { HMERR_CONTENT_NOT_FOUND,           IDS_HMERR_CONTENT_NOT_FOUND     },
  1885.     { HMERR_OPEN_LIB_FILE,           IDS_HMERR_OPEN_LIB_FILE           },
  1886.     { HMERR_READ_LIB_FILE,           IDS_HMERR_READ_LIB_FILE           },
  1887.     { HMERR_CLOSE_LIB_FILE,           IDS_HMERR_CLOSE_LIB_FILE        },
  1888.     { HMERR_INVALID_LIB_FILE,           IDS_HMERR_INVALID_LIB_FILE      },
  1889.     { HMERR_NO_MEMORY,               IDS_HMERR_NO_MEMORY           },
  1890.     { HMERR_ALLOCATE_SEGMENT,           IDS_HMERR_ALLOCATE_SEGMENT      },
  1891.     { HMERR_FREE_MEMORY,           IDS_HMERR_FREE_MEMORY           },
  1892.     { HMERR_PANEL_NOT_FOUND,           IDS_HMERR_PANEL_NOT_FOUND       },
  1893.     { HMERR_DATABASE_NOT_OPEN,           IDS_HMERR_DATABASE_NOT_OPEN     },
  1894.     { 0,                   IDS_HMERR_UNKNOWN           }
  1895.   } ;
  1896.  
  1897.   PDATA Data ;
  1898.   ULONG ErrorCode = (ULONG) LONGFROMMP ( mp1 ) ;
  1899.   int Index ;
  1900.   char Message [200] ;
  1901.   char Title [80] ;
  1902.  
  1903.  /***************************************************************************
  1904.   * Find the instance data.                            *
  1905.   ***************************************************************************/
  1906.  
  1907.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1908.  
  1909.  /***************************************************************************
  1910.   * Find the error code in the message table.                    *
  1911.   ***************************************************************************/
  1912.  
  1913.   Index = 0 ;
  1914.   while ( HelpErrors[Index].Error
  1915.     AND ( HelpErrors[Index].Error != ErrorCode ) )
  1916.   {
  1917.     Index ++ ;
  1918.   }
  1919.  
  1920.  /***************************************************************************
  1921.   * Get the message texts.                            *
  1922.   ***************************************************************************/
  1923.  
  1924.   WinLoadString ( Data->Anchor, Data->Library, IDS_HMERR, sizeof(Title), Title ) ;
  1925.  
  1926.   WinLoadString ( Data->Anchor, Data->Library, HelpErrors[Index].StringId, sizeof(Message), Message ) ;
  1927.  
  1928.  /***************************************************************************
  1929.   * Display the error message.                            *
  1930.   ***************************************************************************/
  1931.  
  1932.   WinMessageBox
  1933.   (
  1934.     HWND_DESKTOP,
  1935.     hwnd,
  1936.     Message,
  1937.     Title,
  1938.     0,
  1939.     MB_OK | MB_WARNING
  1940.   ) ;
  1941.  
  1942.  /***************************************************************************
  1943.   * Return zero, indicating that the message was processed.            *
  1944.   ***************************************************************************/
  1945.  
  1946.   return ( MRFROMSHORT ( 0 ) ) ;
  1947.  
  1948.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1949. }
  1950.  
  1951. /****************************************************************************
  1952.  *                                        *
  1953.  *    Process "Extended Help Undefined" notification                *
  1954.  *                                        *
  1955.  ****************************************************************************/
  1956.  
  1957. static MRESULT APIENTRY ExtHelpUndefined
  1958. ( 
  1959.   HWND hwnd, 
  1960.   USHORT msg, 
  1961.   MPARAM mp1, 
  1962.   MPARAM mp2
  1963. )
  1964. {
  1965.  /***************************************************************************
  1966.   * Local Declarations                                *
  1967.   ***************************************************************************/
  1968.  
  1969.   PDATA Data ;
  1970.   char Message [200] ;
  1971.   char Title [80] ;
  1972.  
  1973.  /***************************************************************************
  1974.   * Find the instance data.                            *
  1975.   ***************************************************************************/
  1976.  
  1977.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1978.  
  1979.  /***************************************************************************
  1980.   * Get the message texts.                            *
  1981.   ***************************************************************************/
  1982.  
  1983.   WinLoadString ( Data->Anchor, Data->Library, IDS_HMERR, sizeof(Title), Title ) ;
  1984.  
  1985.   WinLoadString ( Data->Anchor, Data->Library, IDS_HMERR_EXTHELPUNDEFINED, sizeof(Message), Message ) ;
  1986.  
  1987.  /***************************************************************************
  1988.   * Display the error message.                            *
  1989.   ***************************************************************************/
  1990.  
  1991.   WinMessageBox
  1992.   (
  1993.     HWND_DESKTOP,
  1994.     hwnd,
  1995.     Message,
  1996.     Title,
  1997.     0,
  1998.     MB_OK | MB_WARNING
  1999.   ) ;
  2000.  
  2001.  /***************************************************************************
  2002.   * Return zero, indicating that the message was processed.            *
  2003.   ***************************************************************************/
  2004.  
  2005.   return ( MRFROMSHORT ( 0 ) ) ;
  2006.  
  2007.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  2008. }
  2009.  
  2010. /****************************************************************************
  2011.  *                                        *
  2012.  *    Process "Help Subitem Not Found" notification                *
  2013.  *                                        *
  2014.  ****************************************************************************/
  2015.  
  2016. static MRESULT APIENTRY HelpSubitemNotFound
  2017. ( 
  2018.   HWND hwnd, 
  2019.   USHORT msg, 
  2020.   MPARAM mp1, 
  2021.   MPARAM mp2
  2022. )
  2023. {
  2024.  /***************************************************************************
  2025.   * Local Declarations                                *
  2026.   ***************************************************************************/
  2027.  
  2028.   PDATA Data ;
  2029.   int i ;
  2030.   BYTE Format [200] ;
  2031.   BYTE Message [200] ;
  2032.   BYTE Mode [40] ;
  2033.   USHORT Subtopic ;
  2034.   char Title [80] ;
  2035.   USHORT Topic ;
  2036.  
  2037.  /***************************************************************************
  2038.   * Find the instance data.                            *
  2039.   ***************************************************************************/
  2040.  
  2041.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  2042.  
  2043.  /***************************************************************************
  2044.   * Get the title text.                             *
  2045.   ***************************************************************************/
  2046.  
  2047.   WinLoadString ( Data->Anchor, Data->Library, IDS_HMERR, sizeof(Title), Title ) ;
  2048.  
  2049.  /***************************************************************************
  2050.   * Format the error message.                            *
  2051.   ***************************************************************************/
  2052.  
  2053.   Topic = (USHORT) SHORT1FROMMP ( mp2 ) ;
  2054.   Subtopic = (USHORT) SHORT2FROMMP ( mp2 ) ;
  2055.  
  2056.   i = SHORT1FROMMP ( mp1 ) ;
  2057.  
  2058.   switch ( i )
  2059.   {
  2060.     case HLPM_FRAME:
  2061.       WinLoadString ( Data->Anchor, Data->Library, IDS_HELPMODE_FRAME, sizeof(Mode), Mode ) ;
  2062.       break ;
  2063.  
  2064.     case HLPM_MENU:
  2065.       WinLoadString ( Data->Anchor, Data->Library, IDS_HELPMODE_MENU, sizeof(Mode), Mode ) ;
  2066.       break ;
  2067.  
  2068.     case HLPM_WINDOW:
  2069.       WinLoadString ( Data->Anchor, Data->Library, IDS_HELPMODE_WINDOW, sizeof(Mode), Mode ) ;
  2070.       break ;
  2071.  
  2072.     default:
  2073.       WinLoadString ( Data->Anchor, Data->Library, IDS_HELPMODE_UNKNOWN, sizeof(Mode), Mode ) ;
  2074.   }
  2075.  
  2076.   WinLoadString ( Data->Anchor, Data->Library, IDS_HELPSUBITEMNOTFOUND, sizeof(Format), Format ) ;
  2077.  
  2078.   sprintf ( Message, Format, Mode, Topic, Subtopic ) ;
  2079.  
  2080.  /***************************************************************************
  2081.   * Display the error message.                            *
  2082.   ***************************************************************************/
  2083.  
  2084.   WinMessageBox
  2085.   (
  2086.     HWND_DESKTOP,
  2087.     hwnd,
  2088.     Message,
  2089.     Title,
  2090.     0,
  2091.     MB_OK | MB_WARNING
  2092.   ) ;
  2093.  
  2094.  /***************************************************************************
  2095.   * Return zero, indicating that the message was processed.            *
  2096.   ***************************************************************************/
  2097.  
  2098.   return ( MRFROMSHORT ( 0 ) ) ;
  2099.  
  2100.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  2101. }
  2102.  
  2103. /****************************************************************************
  2104.  *                                        *
  2105.  *    Process Refresh message.                        *
  2106.  *                                        *
  2107.  ****************************************************************************/
  2108.  
  2109. static MRESULT APIENTRY Refresh
  2110. ( 
  2111.   HWND hwnd, 
  2112.   USHORT msg, 
  2113.   MPARAM mp1, 
  2114.   MPARAM mp2
  2115. )
  2116. {
  2117.  /***************************************************************************
  2118.   * Local Declarations                                *
  2119.   ***************************************************************************/
  2120.  
  2121.   PDATA Data ;
  2122.   USHORT Drive ;
  2123.   ULONG Drives ;
  2124.  
  2125.  /***************************************************************************
  2126.   * Find the instance data.                            *
  2127.   ***************************************************************************/
  2128.  
  2129.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  2130.  
  2131.  /***************************************************************************
  2132.   * Save the idle counter.                            *
  2133.   ***************************************************************************/
  2134.  
  2135.   Data->IdleCount = LONGFROMMP ( mp1 ) ;
  2136.  
  2137.  /***************************************************************************
  2138.   * Determine if drive mask has changed.                    *
  2139.   ***************************************************************************/
  2140.  
  2141.   DosQCurDisk ( &Drive, &Drives ) ;
  2142.  
  2143.   if ( Drives != Data->Drives )
  2144.   {
  2145.    /*************************************************************************
  2146.     * It has.  First save the display options.                    *
  2147.     *************************************************************************/
  2148.  
  2149.     SaveApplication ( hwnd, WM_SAVEAPPLICATION, 0, 0 ) ;
  2150.  
  2151.    /*************************************************************************
  2152.     * Next, update the drive item list.                     *
  2153.     *************************************************************************/
  2154.  
  2155.     UpdateDriveList ( Data->Anchor, Data->Library, &Data->Profile, Data->Drives, Drives ) ;
  2156.  
  2157.    /*************************************************************************
  2158.     * If the controls are hidden, hide the whole window and reveal the        *
  2159.     *    controls.  Otherwise the menu wouldn't get updated correctly.       *
  2160.     *************************************************************************/
  2161.  
  2162.     if ( Data->Profile.HideControls )
  2163.     {
  2164.       WinShowWindow ( WinQueryWindow(hwnd,QW_PARENT,FALSE), FALSE ) ;
  2165.       HideControls
  2166.       (
  2167.     FALSE,
  2168.     WinQueryWindow ( hwnd, QW_PARENT, FALSE ),
  2169.     Data->hwndSysMenu,
  2170.     Data->hwndTitleBar,
  2171.     Data->hwndMinMax
  2172.       ) ;
  2173.     }
  2174.  
  2175.    /*************************************************************************
  2176.     * Update the menu.                                *
  2177.     *************************************************************************/
  2178.  
  2179.     RebuildDisplayItems ( hwnd, Data ) ;
  2180.  
  2181.    /*************************************************************************
  2182.     * If the controls were supposed to be hidden, hide them once more and   *
  2183.     *    show the window to the world again.                    *
  2184.     *************************************************************************/
  2185.  
  2186.     if ( Data->Profile.HideControls )
  2187.     {
  2188.       HideControls
  2189.       (
  2190.     TRUE,
  2191.     WinQueryWindow ( hwnd, QW_PARENT, FALSE ),
  2192.     Data->hwndSysMenu,
  2193.     Data->hwndTitleBar,
  2194.     Data->hwndMinMax
  2195.       ) ;
  2196.       WinShowWindow ( WinQueryWindow(hwnd,QW_PARENT,FALSE), TRUE ) ;
  2197.     }
  2198.  
  2199.    /*************************************************************************
  2200.     * Save the updated drive mask.                        *
  2201.     *************************************************************************/
  2202.  
  2203.     Data->Drives = Drives ;
  2204.  
  2205.    /*************************************************************************
  2206.     * Resize the window to accommodate the new option list.            *
  2207.     *************************************************************************/
  2208.  
  2209.     ResizeWindow ( hwnd, &Data->Profile ) ;
  2210.   }
  2211.  
  2212.  /***************************************************************************
  2213.   * Update the statistics.                            *
  2214.   ***************************************************************************/
  2215.  
  2216.   UpdateWindow ( hwnd, Data, FALSE ) ;
  2217.  
  2218.  /***************************************************************************
  2219.   * Return zero, indicating that the message was processed.            *
  2220.   ***************************************************************************/
  2221.  
  2222.   return ( MRFROMSHORT ( 0 ) ) ;
  2223.  
  2224.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  2225. }
  2226.  
  2227.  
  2228. /****************************************************************************
  2229.  *                                        *
  2230.  *                 Get Profile Data                    *
  2231.  *                                        *
  2232.  ****************************************************************************/
  2233.  
  2234. static void GetProfile ( HAB Anchor, HMODULE Library, PPROFILE Profile )
  2235. {
  2236.  /***************************************************************************
  2237.   * Local Declarations                                *
  2238.   ***************************************************************************/
  2239.  
  2240.   USHORT Drive ;
  2241.   ULONG  Drives ;
  2242.   int     i ;
  2243.   ULONG  Size ;
  2244.  
  2245.  /***************************************************************************
  2246.   * Lock the item list.                             *
  2247.   ***************************************************************************/
  2248.  
  2249.   if ( DosSemRequest ( &ItemSemaphore, 5000 ) )
  2250.   {
  2251.     Log ( "ERROR: Unable to lock item list to build it.\n" ) ;
  2252.     DosSemRequest ( &ItemSemaphore, SEM_INDEFINITE_WAIT ) ;
  2253.   }
  2254.  
  2255.  /***************************************************************************
  2256.   * Build the fixed portion of the item list.                    *
  2257.   ***************************************************************************/
  2258.  
  2259.   for ( i=0; i<ITEM_BASE_COUNT; i++ )
  2260.   {
  2261.     WinLoadString ( Anchor, Library, i*2+IDS_SHOW_CLOCK_LABEL,
  2262.       sizeof(Items[i].Label), Items[i].Label ) ;
  2263.  
  2264.     WinLoadString ( Anchor, Library, i*2+IDS_SHOW_CLOCK_OPTION,
  2265.       sizeof(Items[i].MenuOption), Items[i].MenuOption ) ;
  2266.  
  2267.     Items[i].Flag = TRUE ;
  2268.     if
  2269.     (
  2270.       PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, Items[i].Name, &Size )
  2271.       AND
  2272.       ( Size == sizeof(Items[i].Flag) )
  2273.       AND
  2274.       PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, Items[i].Name, &Items[i].Flag, &Size )
  2275.     )
  2276.     {
  2277.       ;
  2278.     }
  2279.   }
  2280.  
  2281.  /***************************************************************************
  2282.   * Release the item list.                            *
  2283.   ***************************************************************************/
  2284.  
  2285.   DosSemClear ( &ItemSemaphore ) ;
  2286.  
  2287.  /***************************************************************************
  2288.   * Add items for each drive on the system.                    *
  2289.   ***************************************************************************/
  2290.  
  2291.   DosQCurDisk ( &Drive, &Drives ) ;
  2292.   UpdateDriveList ( Anchor, Library, Profile, 0, Drives ) ;
  2293.  
  2294.  /***************************************************************************
  2295.   * Get the window's current size and position.                             *
  2296.   ***************************************************************************/
  2297.  
  2298.   memset ( &Profile->Position, 0, sizeof(Profile->Position) ) ;
  2299.   Profile->fPosition = FALSE ;
  2300.   if
  2301.   (
  2302.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "Position", &Size )
  2303.     AND
  2304.     ( Size == sizeof(Profile->Position) )
  2305.     AND
  2306.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "Position", &Profile->Position, &Size )
  2307.   )
  2308.   {
  2309.     Profile->fPosition = TRUE ;
  2310.   }
  2311.  
  2312.  /***************************************************************************
  2313.   * Get the program options.                            *
  2314.   ***************************************************************************/
  2315.  
  2316.   Profile->HideControls = FALSE ;
  2317.   if
  2318.   (
  2319.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "HideControls", &Size )
  2320.     AND
  2321.     ( Size == sizeof(Profile->HideControls) )
  2322.     AND
  2323.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "HideControls", &Profile->HideControls, &Size )
  2324.   )
  2325.   {
  2326.     Profile->fHideControls = TRUE ;
  2327.   }
  2328.  
  2329.   Profile->TimerInterval = 1000 ;
  2330.   if
  2331.   (
  2332.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "TimerInterval", &Size )
  2333.     AND
  2334.     ( Size == sizeof(Profile->TimerInterval) )
  2335.     AND
  2336.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "TimerInterval", &Profile->TimerInterval, &Size )
  2337.   )
  2338.   {
  2339.     Profile->fTimerInterval = TRUE ;
  2340.   }
  2341.  
  2342.  /***************************************************************************
  2343.   * Get the presentation parameters.                        *
  2344.   ***************************************************************************/
  2345.  
  2346.   strcpy ( Profile->FontNameSize, "" ) ;
  2347.   Profile->fFontNameSize = FALSE ;
  2348.   if
  2349.   (
  2350.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "FontNameSize", &Size )
  2351.     AND
  2352.     ( Size == sizeof(Profile->FontNameSize) )
  2353.     AND
  2354.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "FontNameSize", &Profile->FontNameSize, &Size )
  2355.   )
  2356.   {
  2357.     Profile->fFontNameSize = TRUE ;
  2358.   }
  2359.  
  2360.   Profile->BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  2361.   Profile->fBackColor = FALSE ;
  2362.   if
  2363.   (
  2364.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "BackgroundColor", &Size )
  2365.     AND
  2366.     ( Size == sizeof(Profile->BackColor) )
  2367.     AND
  2368.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "BackgroundColor", &Profile->BackColor, &Size )
  2369.   )
  2370.   {
  2371.     Profile->fBackColor = TRUE ;
  2372.   }
  2373.  
  2374.   Profile->TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  2375.   Profile->fTextColor = FALSE ;
  2376.   if
  2377.   (
  2378.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "ForegroundColor", &Size )
  2379.     AND
  2380.     ( Size == sizeof(Profile->TextColor) )
  2381.     AND
  2382.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "ForegroundColor", &Profile->TextColor, &Size )
  2383.   )
  2384.   {
  2385.     Profile->fTextColor = TRUE ;
  2386.   }
  2387. }
  2388.  
  2389. /****************************************************************************
  2390.  *                                        *
  2391.  *                 Put Profile Data                    *
  2392.  *                                        *
  2393.  ****************************************************************************/
  2394.  
  2395. static void PutProfile ( PPROFILE Profile )
  2396. {
  2397.  /***************************************************************************
  2398.   * Local Declarations                                *
  2399.   ***************************************************************************/
  2400.  
  2401.   int i ;
  2402.  
  2403.  /***************************************************************************
  2404.   * Save the window's current size and position.                            *
  2405.   ***************************************************************************/
  2406.  
  2407.   PrfWriteProfileData
  2408.   (
  2409.     HINI_USERPROFILE,
  2410.     PROGRAM_NAME,
  2411.     "Position",
  2412.     &Profile->Position,
  2413.     (ULONG)sizeof(Profile->Position)
  2414.   ) ;
  2415.  
  2416.  /***************************************************************************
  2417.   * Save the program options.                            *
  2418.   ***************************************************************************/
  2419.  
  2420.   if ( Profile->fHideControls )
  2421.   {
  2422.     PrfWriteProfileData
  2423.     (
  2424.       HINI_USERPROFILE,
  2425.       PROGRAM_NAME,
  2426.       "HideControls",
  2427.       &Profile->HideControls,
  2428.       (ULONG)sizeof(Profile->HideControls)
  2429.     ) ;
  2430.   }
  2431.  
  2432.   if ( Profile->fTimerInterval )
  2433.   {
  2434.     PrfWriteProfileData
  2435.     (
  2436.       HINI_USERPROFILE,
  2437.       PROGRAM_NAME,
  2438.       "TimerInterval",
  2439.       &Profile->TimerInterval,
  2440.       (ULONG)sizeof(Profile->TimerInterval)
  2441.     ) ;
  2442.   }
  2443.  
  2444.  /***************************************************************************
  2445.   * Save the item options.                            *
  2446.   ***************************************************************************/
  2447.  
  2448.   if ( DosSemRequest ( &ItemSemaphore, 5000 ) )
  2449.   {
  2450.     Log ( "ERROR: Unable to lock item list to save display options.\n" ) ;
  2451.     DosSemRequest ( &ItemSemaphore, SEM_INDEFINITE_WAIT ) ;
  2452.   }
  2453.   for ( i=0; i<Profile->ItemCount; i++ )
  2454.   {
  2455.     PITEM Item = & Profile->Items [i] ;
  2456.  
  2457.     PrfWriteProfileData
  2458.     (
  2459.       HINI_USERPROFILE,
  2460.       PROGRAM_NAME,
  2461.       Item->Name,
  2462.       &Item->Flag,
  2463.       (ULONG)sizeof(Item->Flag)
  2464.     ) ;
  2465.   }
  2466.   DosSemClear ( &ItemSemaphore ) ;
  2467.  
  2468.  /***************************************************************************
  2469.   * Save the presentation parameters.                        *
  2470.   ***************************************************************************/
  2471.  
  2472.   if ( Profile->fFontNameSize )
  2473.   {
  2474.     PrfWriteProfileData
  2475.     (
  2476.       HINI_USERPROFILE,
  2477.       PROGRAM_NAME,
  2478.       "FontNameSize",
  2479.       Profile->FontNameSize,
  2480.       (ULONG)sizeof(Profile->FontNameSize)
  2481.     ) ;
  2482.   }
  2483.  
  2484.   if ( Profile->fBackColor )
  2485.   {
  2486.     PrfWriteProfileData
  2487.     (
  2488.       HINI_USERPROFILE,
  2489.       PROGRAM_NAME,
  2490.       "BackgroundColor",
  2491.       &Profile->BackColor,
  2492.       (ULONG)sizeof(Profile->BackColor)
  2493.     ) ;
  2494.   }
  2495.  
  2496.   if ( Profile->fTextColor )
  2497.   {
  2498.     PrfWriteProfileData
  2499.     (
  2500.       HINI_USERPROFILE,
  2501.       PROGRAM_NAME,
  2502.       "ForegroundColor",
  2503.       &Profile->TextColor,
  2504.       (ULONG)sizeof(Profile->TextColor)
  2505.     ) ;
  2506.   }
  2507. }
  2508.  
  2509. /****************************************************************************
  2510.  *                                        *
  2511.  *    Scan CONFIG.SYS for a keyword.    Return the value.            *
  2512.  *                                        *
  2513.  ****************************************************************************/
  2514.  
  2515. static PCHAR ScanSystemConfig ( PCHAR Keyword )
  2516. {
  2517.  /***************************************************************************
  2518.   * Local Declarations                                *
  2519.   ***************************************************************************/
  2520.  
  2521.   static char Buffer [500] ;
  2522.   FILE *File ;
  2523.   SEL GlobalSelector ;
  2524.   SEL LocalSelector ;
  2525.   char Path [_MAX_PATH] ;
  2526.   GINFOSEG FAR *pGlobalInfoSeg ;
  2527.  
  2528.  /***************************************************************************
  2529.   * Get the boot drive number from the global information segment.        *
  2530.   ***************************************************************************/
  2531.  
  2532.   DosGetInfoSeg ( &GlobalSelector, &LocalSelector ) ;
  2533.  
  2534.   pGlobalInfoSeg = MAKEPGINFOSEG ( GlobalSelector ) ;
  2535.  
  2536.  /***************************************************************************
  2537.   * Build the CONFIG.SYS path.                            *
  2538.   ***************************************************************************/
  2539.  
  2540.   Path[0] = (char) ( pGlobalInfoSeg->bootdrive + 'A' - 1 ) ;
  2541.   Path[1] = 0 ;
  2542.   strcat ( Path, ":\\CONFIG.SYS" ) ;
  2543.  
  2544.  /***************************************************************************
  2545.   * Open CONFIG.SYS for reading.                        *
  2546.   ***************************************************************************/
  2547.  
  2548.   File = fopen ( Path, "rt" ) ;
  2549.   if ( NOT File )
  2550.   {
  2551.     return ( NULL ) ;
  2552.   }
  2553.  
  2554.  /***************************************************************************
  2555.   * While there're more lines in CONFIG.SYS, read a line and check it.      *
  2556.   ***************************************************************************/
  2557.  
  2558.   while ( fgets ( Buffer, sizeof(Buffer), File ) )
  2559.   {
  2560.  
  2561.    /*************************************************************************
  2562.     * Clean any trailing newline character from the input string.        *
  2563.     *************************************************************************/
  2564.  
  2565.     if ( Buffer[strlen(Buffer)-1] == '\n' )
  2566.     {
  2567.       Buffer[strlen(Buffer)-1] = 0 ;
  2568.     }
  2569.  
  2570.    /*************************************************************************
  2571.     * If keyword starts the line, we've found the line we want.  Close      *
  2572.     *    the file and return a pointer to the parameter text.            *
  2573.     *************************************************************************/
  2574.  
  2575.     if ( NOT strnicmp ( Buffer, Keyword, strlen(Keyword) )
  2576.       AND ( Buffer[strlen(Keyword)] == '=' ) )
  2577.     {
  2578.       fclose ( File ) ;
  2579.       return ( Buffer + strlen(Keyword) + 1 ) ;
  2580.     }
  2581.   }
  2582.  
  2583.  /***************************************************************************
  2584.   * Close the file.  We haven't found the line we wanted.                   *
  2585.   ***************************************************************************/
  2586.  
  2587.   fclose ( File ) ;
  2588.  
  2589.   return ( NULL ) ;
  2590. }
  2591.  
  2592. /****************************************************************************
  2593.  *                                        *
  2594.  *             Resize Client Window                    *
  2595.  *                                        *
  2596.  ****************************************************************************/
  2597.  
  2598. static void ResizeWindow ( HWND hwnd, PPROFILE Profile )
  2599. {
  2600.  /***************************************************************************
  2601.   * Local Declarations                                *
  2602.   ***************************************************************************/
  2603.  
  2604.   SHORT Count ;
  2605.   SHORT fHadToHide = FALSE ;
  2606.   SHORT fHadToRestore = FALSE ;
  2607.   LONG Height ;
  2608.   HPS hPS ;
  2609.   HWND hwndFrame ;
  2610.   short i ;
  2611.   RECTL Rectangle ;
  2612.   char Text [100] ;
  2613.   LONG Widest ;
  2614.  
  2615.  /***************************************************************************
  2616.   * If the window is visible and minimized, restore it invisibly.        *
  2617.   ***************************************************************************/
  2618.  
  2619.   hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  2620.  
  2621.   if ( Profile->Position.fs & SWP_MINIMIZE )
  2622.   {
  2623.     if ( WinIsWindowVisible ( hwndFrame ) )
  2624.     {
  2625.       WinShowWindow ( hwndFrame, FALSE ) ;
  2626.       fHadToHide = TRUE ;
  2627.     }
  2628.     WinSetWindowPos ( hwndFrame, NULL, 0, 0, 0, 0, SWP_RESTORE ) ;
  2629.     fHadToRestore = TRUE ;
  2630.   }
  2631.  
  2632.  /***************************************************************************
  2633.   * Determine how many items are to be displayed.                *
  2634.   ***************************************************************************/
  2635.  
  2636.   if ( DosSemRequest ( &ItemSemaphore, 5000 ) )
  2637.   {
  2638.     Log ( "ERROR: Unable to lock item list to determine window size.\n" ) ;
  2639.     DosSemRequest ( &ItemSemaphore, SEM_INDEFINITE_WAIT ) ;
  2640.   }
  2641.  
  2642.   hPS = WinGetPS ( hwnd ) ;
  2643.  
  2644.   Count = 0 ;
  2645.   Widest = 0 ;
  2646.   Height = 0 ;
  2647.  
  2648.   for ( i=0; i<Profile->ItemCount; i++ )
  2649.   {
  2650.     PITEM Item = & Profile->Items [i] ;
  2651.  
  2652.     if ( Item->Flag )
  2653.     {
  2654.       Count ++ ;
  2655.  
  2656.       sprintf ( Text, "%s 1,234,567K", Item->Label ) ;
  2657.  
  2658.       WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  2659.  
  2660.       WinDrawText ( hPS, strlen(Text), Text,
  2661.     &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  2662.  
  2663.       Widest = max ( Widest, (Rectangle.xRight-Rectangle.xLeft+1) ) ;
  2664.  
  2665.       Height += Rectangle.yTop - Rectangle.yBottom ;
  2666.     }
  2667.   }
  2668.  
  2669.   WinReleasePS ( hPS ) ;
  2670.  
  2671.   DosSemClear ( &ItemSemaphore ) ;
  2672.  
  2673.  /***************************************************************************
  2674.   * Get the window's current size & position.                               *
  2675.   ***************************************************************************/
  2676.  
  2677.   WinQueryWindowRect ( hwndFrame, &Rectangle ) ;
  2678.  
  2679.   WinCalcFrameRect ( hwndFrame, &Rectangle, TRUE ) ;
  2680.  
  2681.  /***************************************************************************
  2682.   * Adjust the window's width & height.                                     *
  2683.   ***************************************************************************/
  2684.  
  2685.   Rectangle.xRight  = Rectangle.xLeft + Widest ;
  2686.  
  2687.   Rectangle.yTop    = Rectangle.yBottom + Height ;
  2688.  
  2689.  /***************************************************************************
  2690.   * Compute new frame size and apply it.                    *
  2691.   ***************************************************************************/
  2692.  
  2693.   WinCalcFrameRect ( hwndFrame, &Rectangle, FALSE ) ;
  2694.  
  2695.   WinSetWindowPos ( hwndFrame, NULL, 0, 0,
  2696.     (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2697.     (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2698.     SWP_SIZE ) ;
  2699.  
  2700.  /***************************************************************************
  2701.   * Return the window to its original state.                    *
  2702.   ***************************************************************************/
  2703.  
  2704.   if ( fHadToRestore )
  2705.   {
  2706.     WinSetWindowPos ( hwndFrame, NULL,
  2707.       Profile->Position.x, Profile->Position.y,
  2708.       Profile->Position.cx, Profile->Position.cy,
  2709.       SWP_MOVE | SWP_SIZE | SWP_MINIMIZE ) ;
  2710.   }
  2711.  
  2712.   if ( fHadToHide )
  2713.   {
  2714.     WinShowWindow ( hwndFrame, TRUE ) ;
  2715.   }
  2716.  
  2717.  /***************************************************************************
  2718.   * Invalidate the window so that it gets repainted.                *
  2719.   ***************************************************************************/
  2720.  
  2721.   WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  2722. }
  2723.  
  2724. /****************************************************************************
  2725.  *                                        *
  2726.  *            Hide Window Controls                    *
  2727.  *                                        *
  2728.  ****************************************************************************/
  2729.  
  2730. static void HideControls
  2731. (
  2732.   BOOL fHide,
  2733.   HWND hwndFrame,
  2734.   HWND hwndSysMenu,
  2735.   HWND hwndTitleBar,
  2736.   HWND hwndMinMax
  2737. )
  2738. {
  2739.  /***************************************************************************
  2740.   * Local Declarations                                *
  2741.   ***************************************************************************/
  2742.  
  2743.   SWP OldPosition ;
  2744.   SWP Position ;
  2745.   RECTL Rectangle ;
  2746.   BOOL WasVisible ;
  2747.  
  2748.  /***************************************************************************
  2749.   * Get original window position and state.                    *
  2750.   ***************************************************************************/
  2751.  
  2752.   WinQueryWindowPos ( hwndFrame, &OldPosition ) ;
  2753.  
  2754.   WasVisible = WinIsWindowVisible ( hwndFrame ) ;
  2755.  
  2756.  /***************************************************************************
  2757.   * Restore and hide the window.                        *
  2758.   ***************************************************************************/
  2759.  
  2760.   WinSetWindowPos ( hwndFrame, NULL, 0, 0, 0, 0, SWP_RESTORE | SWP_HIDE ) ;
  2761.  
  2762.  /***************************************************************************
  2763.   * Determine client window and location.                    *
  2764.   ***************************************************************************/
  2765.  
  2766.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  2767.  
  2768.   Rectangle.xLeft   = Position.x ;
  2769.   Rectangle.xRight  = Position.x + Position.cx ;
  2770.   Rectangle.yBottom = Position.y ;
  2771.   Rectangle.yTop    = Position.y + Position.cy ;
  2772.  
  2773.   WinCalcFrameRect ( hwndFrame, &Rectangle, TRUE ) ;
  2774.  
  2775.  /***************************************************************************
  2776.   * Hide or reveal the controls windows by changing their parentage.        *
  2777.   ***************************************************************************/
  2778.  
  2779.   if ( fHide )
  2780.   {
  2781.     WinSetParent ( hwndSysMenu,  HWND_OBJECT, FALSE ) ;
  2782.     WinSetParent ( hwndTitleBar, HWND_OBJECT, FALSE ) ;
  2783.     WinSetParent ( hwndMinMax,     HWND_OBJECT, FALSE ) ;
  2784.   }
  2785.   else
  2786.   {
  2787.     WinSetParent ( hwndSysMenu,  hwndFrame, TRUE ) ;
  2788.     WinSetParent ( hwndTitleBar, hwndFrame, TRUE ) ;
  2789.     WinSetParent ( hwndMinMax,     hwndFrame, TRUE ) ;
  2790.   }
  2791.  
  2792.  /***************************************************************************
  2793.   * Tell the frame that things have changed.  Let it update the window.     *
  2794.   ***************************************************************************/
  2795.  
  2796.   WinSendMsg ( hwndFrame, WM_UPDATEFRAME,
  2797.     MPFROMSHORT ( FCF_TITLEBAR | FCF_SYSMENU | FCF_MINBUTTON ), 0L ) ;
  2798.  
  2799.  /***************************************************************************
  2800.   * Reposition the frame around the client window, which is left be.        *
  2801.   ***************************************************************************/
  2802.  
  2803.   WinCalcFrameRect ( hwndFrame, &Rectangle, FALSE ) ;
  2804.  
  2805.   WinSetWindowPos ( hwndFrame, NULL,
  2806.     (SHORT) Rectangle.xLeft,  (SHORT) Rectangle.yBottom,
  2807.     (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2808.     (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2809.     SWP_SIZE | SWP_MOVE ) ;
  2810.  
  2811.  /***************************************************************************
  2812.   * If window was maximized, put it back that way.                *
  2813.   ***************************************************************************/
  2814.  
  2815.   if ( OldPosition.fs & SWP_MAXIMIZE )
  2816.   {
  2817.     WinSetWindowPos ( hwndFrame, NULL,
  2818.       (SHORT) Rectangle.xLeft,    (SHORT) Rectangle.yBottom,
  2819.       (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2820.       (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2821.       SWP_SIZE | SWP_MOVE |
  2822.       ( OldPosition.fs & SWP_MAXIMIZE ) ) ;
  2823.   }
  2824.  
  2825.  /***************************************************************************
  2826.   * If the window was visible in the first place, show it.            *
  2827.   ***************************************************************************/
  2828.  
  2829.   if ( WasVisible )
  2830.   {
  2831.     WinShowWindow ( hwndFrame, TRUE ) ;
  2832.   }
  2833. }
  2834.  
  2835. /****************************************************************************
  2836.  *                                        *
  2837.  *    Update Window                                *
  2838.  *                                        *
  2839.  ****************************************************************************/
  2840.  
  2841. #pragma optimize ( "gle", off )
  2842.  
  2843. static void UpdateWindow ( HWND hwnd, PDATA Data, BOOL All )
  2844. {
  2845.  /***************************************************************************
  2846.   *                Declarations                    *
  2847.   ***************************************************************************/
  2848.  
  2849.   int Count ;
  2850.   HPS hPS ;
  2851.   short i ;
  2852.   RECTL Rectangle ;
  2853.   char Text [100] ;
  2854.  
  2855.  /***************************************************************************
  2856.   * Lock the item list.                             *
  2857.   ***************************************************************************/
  2858.  
  2859.   if ( DosSemRequest ( &ItemSemaphore, 5000 ) )
  2860.   {
  2861.     Log ( "ERROR: Unable to lock item list to update window contents.\n" ) ;
  2862.     DosSemRequest ( &ItemSemaphore, SEM_INDEFINITE_WAIT ) ;
  2863.   }
  2864.  
  2865.  /***************************************************************************
  2866.   * Determine how many items are to be displayed.                *
  2867.   ***************************************************************************/
  2868.  
  2869.   Count = 0 ;
  2870.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  2871.   {
  2872.     if ( Data->Profile.Items[i].Flag )
  2873.     {
  2874.       Count ++ ;
  2875.     }
  2876.   }
  2877.  
  2878.  /***************************************************************************
  2879.   * Get presentation space and make it use RGB colors.                *
  2880.   ***************************************************************************/
  2881.  
  2882.   hPS = WinGetPS ( hwnd ) ;
  2883.   GpiCreateLogColorTable ( hPS, LCOL_RESET, LCOLF_RGB, 0L, 0L, NULL ) ;
  2884.  
  2885.  /***************************************************************************
  2886.   * Get the window's size and determine the initial position.               *
  2887.   ***************************************************************************/
  2888.  
  2889.   WinQueryWindowRect ( hwnd, &Rectangle ) ;
  2890.  
  2891.   Rectangle.xLeft += Data->Width / 2 ;
  2892.   Rectangle.xRight -= Data->Width / 2 ;
  2893.  
  2894.   Rectangle.yBottom = Data->Height * ( Count - 1 ) ;
  2895.   Rectangle.yTop = Rectangle.yBottom + Data->Height ;
  2896.  
  2897.  /***************************************************************************
  2898.   * Review all items.  Display those changed, or all.                *
  2899.   ***************************************************************************/
  2900.  
  2901.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  2902.   {
  2903.     PITEM Item = & Data->Profile.Items [i] ;
  2904.     ULONG NewValue ;
  2905.  
  2906.     if ( Item->Flag )
  2907.     {
  2908.       if ( NOT Item->Error )
  2909.       {
  2910.     if ( Item->NewValue )
  2911.       NewValue = Item->NewValue ( Data, Item->Parm ) ;
  2912.     else
  2913.       Log ( "Item->NewValue == NULL!  Label '%s'.\n", Item->Label ) ;
  2914.       }
  2915.       else
  2916.       {
  2917.     NewValue = DRIVE_ERROR ;
  2918.       }
  2919.  
  2920.       if ( All OR ( NewValue != Item->Value ) )
  2921.       {
  2922.     switch ( i )
  2923.     {
  2924.       case ITEM_CLOCK:
  2925.       {
  2926.         ULONG Month  = ( NewValue % 100000000L ) / 1000000L ;
  2927.         ULONG Day     = ( NewValue % 1000000L ) / 10000L ;
  2928.         ULONG Hour     = ( NewValue % 10000L ) / 100L ;
  2929.         ULONG Minute = ( NewValue % 100L ) ;
  2930.  
  2931.         switch ( Data->CountryInfo.fsDateFmt )
  2932.         {
  2933.           case DATEFMT_DD_MM_YY:
  2934.         sprintf ( Text, "%02lu%s%02lu ",
  2935.           Day, Data->CountryInfo.szDateSeparator, Month ) ;
  2936.         break ;
  2937.  
  2938.           case DATEFMT_YY_MM_DD:
  2939.           case DATEFMT_MM_DD_YY:
  2940.           default:
  2941.         sprintf ( Text, "%02lu%s%02lu ",
  2942.           Month, Data->CountryInfo.szDateSeparator, Day ) ;
  2943.         break ;
  2944.         }
  2945.  
  2946.         if ( Data->CountryInfo.fsTimeFmt )
  2947.         {
  2948.           sprintf ( Text+strlen(Text), "%02lu%s%02lu",
  2949.         Hour,
  2950.         Data->CountryInfo.szTimeSeparator,
  2951.         Minute ) ;
  2952.         }
  2953.         else
  2954.         {
  2955.           PCHAR AmPm ;
  2956.  
  2957.           if ( Hour )
  2958.           {
  2959.         if ( Hour < 12 )
  2960.         {
  2961.           AmPm = "a" ;
  2962.         }
  2963.         else if ( Hour == 12 )
  2964.         {
  2965.           if ( Minute )
  2966.             AmPm = "p" ;
  2967.           else
  2968.             AmPm = "a" ;
  2969.         }
  2970.         else if ( Hour > 12 )
  2971.         {
  2972.           Hour -= 12 ;
  2973.           AmPm = "p" ;
  2974.         }
  2975.           }
  2976.           else
  2977.           {
  2978.         Hour = 12 ;
  2979.         if ( Minute )
  2980.           AmPm = "a" ;
  2981.         else
  2982.           AmPm = "p" ;
  2983.           }
  2984.           sprintf ( Text+strlen(Text), "%02lu%s%02lu%s",
  2985.         Hour, Data->CountryInfo.szTimeSeparator, Minute, AmPm ) ;
  2986.         }
  2987.         break ;
  2988.       }
  2989.  
  2990.       default:
  2991.       {
  2992.         memset ( Text, 0, sizeof(Text) ) ;
  2993.  
  2994.         if ( NewValue == DRIVE_ERROR )
  2995.         {
  2996.           Item->Error = TRUE ;
  2997.           WinLoadString ( Data->Anchor, Data->Library, IDS_DRIVEERROR, sizeof(Text), Text ) ;
  2998.         }
  2999.         else
  3000.         {
  3001.           if ( Item->Divisor )
  3002.           {
  3003.         if ( NewValue < Item->Divisor * 1000 )
  3004.           sprintf ( Text, "%lu", NewValue ) ;
  3005.         else
  3006.           sprintf ( Text, "%lu", (NewValue+Item->Divisor/2)/Item->Divisor ) ;
  3007.           }
  3008.           else
  3009.           {
  3010.         sprintf ( Text, "%lu", NewValue ) ;
  3011.           }
  3012.  
  3013.           {
  3014.         PCHAR p1, p2 ;
  3015.         CHAR Work[100] ;
  3016.  
  3017.         p1 = Text ;
  3018.         p2 = Work ;
  3019.         while ( *p1 )
  3020.         {
  3021.           *p2 = *p1 ;
  3022.           p1 ++ ;
  3023.           p2 ++ ;
  3024.           if ( *p1 )
  3025.           {
  3026.             if ( strlen(p1) % 3 == 0 )
  3027.             {
  3028.               *p2 = Data->CountryInfo.szThousandsSeparator [0] ;
  3029.               p2 ++ ;
  3030.             }
  3031.           }
  3032.         }
  3033.         *p2 = 0 ;
  3034.         strcpy ( Text, Work ) ;
  3035.           }
  3036.  
  3037.           if ( Item->Divisor )
  3038.           {
  3039.         if ( NewValue < Item->Divisor * 1000 )
  3040.           Text[strlen(Text)] = ' ' ;
  3041.         else
  3042.           Text[strlen(Text)] = Item->Suffix ;
  3043.           }
  3044.           else
  3045.           {
  3046.         Text[strlen(Text)] = Item->Suffix ;
  3047.           }
  3048.         }
  3049.       }
  3050.     }
  3051.  
  3052.     WinDrawText ( hPS, strlen(Text), Text, &Rectangle,
  3053.       Data->Profile.TextColor, Data->Profile.BackColor,
  3054.       DT_RIGHT | DT_BOTTOM | DT_ERASERECT ) ;
  3055.  
  3056.     WinDrawText ( hPS, strlen(Item->Label), Item->Label, &Rectangle,
  3057.       Data->Profile.TextColor, Data->Profile.BackColor,
  3058.       DT_LEFT | DT_BOTTOM ) ;
  3059.  
  3060.     Item->Value = NewValue ;
  3061.       }
  3062.       Rectangle.yBottom -= Data->Height ;
  3063.       Rectangle.yTop    -= Data->Height ;
  3064.     }
  3065.   }
  3066.  
  3067.  /***************************************************************************
  3068.   * Release the presentation space and return.                    *
  3069.   ***************************************************************************/
  3070.  
  3071.   WinReleasePS ( hPS ) ;
  3072.  
  3073.  /***************************************************************************
  3074.   * Release the item list.                            *
  3075.   ***************************************************************************/
  3076.  
  3077.   DosSemClear ( &ItemSemaphore ) ;
  3078. }
  3079.  
  3080. #pragma optimize ( "gle", on )
  3081.  
  3082.  
  3083. /****************************************************************************
  3084.  *                                        *
  3085.  *    Compute Time                                *
  3086.  *                                        *
  3087.  ****************************************************************************/
  3088.  
  3089. static ULONG ComputeTime ( PDATA Data, USHORT Dummy )
  3090. {
  3091.   char DateString [9] ;
  3092.   short Hour, Minute ;
  3093.   short Month, Day ;
  3094.   ULONG Time ;
  3095.   char TimeString [9] ;
  3096.  
  3097.   _strdate ( DateString ) ;
  3098.   _strtime ( TimeString ) ;
  3099.  
  3100.   Hour     = atoi ( TimeString + 0 ) ;
  3101.   Minute = atoi ( TimeString + 3 ) ;
  3102.  
  3103.   Month  = atoi ( DateString + 0 ) ;
  3104.   Day     = atoi ( DateString + 3 ) ;
  3105.  
  3106.   Time = Month ;
  3107.   Time *= 100 ;
  3108.   Time += Day ;
  3109.   Time *= 100 ;
  3110.   Time += Hour ;
  3111.   Time *= 100 ;
  3112.   Time += Minute ;
  3113.  
  3114.   return ( Time ) ;
  3115. }
  3116.  
  3117. /****************************************************************************
  3118.  *                                        *
  3119.  *    Compute Available Memory                            *
  3120.  *                                        *
  3121.  ****************************************************************************/
  3122.  
  3123. static ULONG ComputeFreeMemory ( PDATA Data, USHORT Dummy )
  3124. {
  3125.   ULONG MemFree ;
  3126.  
  3127.   DosMemAvail ( &MemFree ) ;
  3128.  
  3129.   return ( MemFree ) ;
  3130. }
  3131.  
  3132. /****************************************************************************
  3133.  *                                        *
  3134.  *    Compute Swap-File Size                            *
  3135.  *                                        *
  3136.  ****************************************************************************/
  3137.  
  3138. static ULONG ComputeSwapSize ( PDATA Data, USHORT Dummy )
  3139. {
  3140.  /***************************************************************************
  3141.   *                Declarations                    *
  3142.   ***************************************************************************/
  3143.  
  3144.   char Path [_MAX_PATH+1] ;
  3145.   struct stat Status ;
  3146.   ULONG SwapSize ;
  3147.  
  3148.  /***************************************************************************
  3149.   * Find the swap file and find its size.                    *
  3150.   ***************************************************************************/
  3151.  
  3152.   strcpy ( Path, Data->SwapPath ) ;
  3153.  
  3154.   if ( Path[strlen(Path)-1] != '\\' )
  3155.   {
  3156.     strcat ( Path, "\\" ) ;
  3157.   }
  3158.  
  3159.   strcat ( Path, "SWAPPER.DAT" ) ;
  3160.  
  3161.   SwapSize = 0 ;
  3162.   if ( stat ( Path, &Status ) == 0 )
  3163.   {
  3164.     SwapSize = Status.st_size ;
  3165.   }
  3166.  
  3167.   return ( SwapSize ) ;
  3168. }
  3169.  
  3170. /****************************************************************************
  3171.  *                                        *
  3172.  *    Compute Available Swap Space                        *
  3173.  *                                        *
  3174.  ****************************************************************************/
  3175.  
  3176. static ULONG ComputeSwapFree ( PDATA Data, USHORT Dummy )
  3177. {
  3178.  /***************************************************************************
  3179.   *                Declarations                    *
  3180.   ***************************************************************************/
  3181.  
  3182.   FSALLOCATE Allocation ;
  3183.   char Path [_MAX_PATH+1] ;
  3184.   ULONG SwapFree ;
  3185.  
  3186.  /***************************************************************************
  3187.   * Find the swap file and find its size.                    *
  3188.   ***************************************************************************/
  3189.  
  3190.   strcpy ( Path, Data->SwapPath ) ;
  3191.   strcat ( Path, "\\SWAPPER.DAT" ) ;
  3192.  
  3193.  /***************************************************************************
  3194.   * Compute swap device free space.                        *
  3195.   ***************************************************************************/
  3196.  
  3197.   SwapFree = 0 ;
  3198.   if ( Path[0] )
  3199.   {
  3200.     DosError ( HARDERROR_DISABLE ) ;
  3201.     DosQFSInfo ( Path[0]-'A'+1, FSIL_ALLOC,
  3202.       (PBYTE)&Allocation, sizeof(Allocation) ) ;
  3203.     DosError ( HARDERROR_ENABLE ) ;
  3204.  
  3205.     SwapFree = Allocation.cUnitAvail*Allocation.cSectorUnit*Allocation.cbSector ;
  3206.   }
  3207.  
  3208.  /***************************************************************************
  3209.   * Return swap device's free space, less the minimum free space.           *
  3210.   ***************************************************************************/
  3211.  
  3212.   if ( SwapFree < (ULONG)Data->MinFree*1024L )
  3213.     return ( 0L ) ;
  3214.   else
  3215.     return ( SwapFree - (ULONG)Data->MinFree * 1024L ) ;
  3216. }
  3217.  
  3218. /****************************************************************************
  3219.  *                                        *
  3220.  *    Compute Spool-file Size                            *
  3221.  *                                        *
  3222.  ****************************************************************************/
  3223.  
  3224. static ULONG ComputeSpoolSize ( PDATA Data, USHORT Dummy )
  3225. {
  3226.  /***************************************************************************
  3227.   *                Declarations                    *
  3228.   ***************************************************************************/
  3229.  
  3230.   USHORT Count ;
  3231.   FILEFINDBUF *Found ;
  3232.   HDIR hDir = HDIR_CREATE ;
  3233.   BYTE *Path ;
  3234.   USHORT PathSize ;
  3235.   ULONG TotalSize = 0 ;
  3236.  
  3237.  /***************************************************************************
  3238.   * Build file specifier for the spool directory.                *
  3239.   ***************************************************************************/
  3240.  
  3241.   DosQSysInfo ( 0, (PBYTE)&PathSize, sizeof(PathSize) ) ;
  3242.  
  3243.   Path = malloc ( PathSize ) ;
  3244.   if ( Path == NULL )
  3245.   {
  3246.     return ( 0 ) ;
  3247.   }
  3248.  
  3249.   Found = malloc ( PathSize + sizeof(FILEFINDBUF) ) ;
  3250.   if ( Found == NULL )
  3251.   {
  3252.     free ( Path ) ;
  3253.     return ( 0 ) ;
  3254.   }
  3255.  
  3256.   strcpy ( Path, Data->SpoolPath ) ;
  3257.   strcat ( Path, "\\*.*" ) ;
  3258.  
  3259.  /***************************************************************************
  3260.   * If there are any files/directories in the spool directory . . .        *
  3261.   ***************************************************************************/
  3262.  
  3263.   Count = 1 ;
  3264.   if ( !DosFindFirst2 ( Path, &hDir,
  3265.     FILE_NORMAL | FILE_READONLY | FILE_DIRECTORY | FILE_ARCHIVED,
  3266.     Found, PathSize+sizeof(FILEFINDBUF), &Count, FIL_STANDARD, 0L ) )
  3267.   {
  3268.  
  3269.    /*************************************************************************
  3270.     * Loop through every entry in the spool directory.                *
  3271.     *************************************************************************/
  3272.  
  3273.     do
  3274.     {
  3275.  
  3276.      /***********************************************************************
  3277.       * Ignore the parent and current directory entries.            *
  3278.       ***********************************************************************/
  3279.  
  3280.       if ( !strcmp ( Found->achName, "." )
  3281.     OR !strcmp ( Found->achName, ".." ) )
  3282.       {
  3283.     continue ;
  3284.       }
  3285.  
  3286.      /***********************************************************************
  3287.       * If the entry is a subdirectory . . .                    *
  3288.       ***********************************************************************/
  3289.  
  3290.       if ( Found->attrFile & FILE_DIRECTORY )
  3291.       {
  3292.  
  3293.        /*********************************************************************
  3294.     * Scan the subdirectory and add every file's size to the total.     *
  3295.     *********************************************************************/
  3296.  
  3297.     HDIR hDir = HDIR_CREATE ;
  3298.  
  3299.     strcpy ( Path, Data->SpoolPath ) ;
  3300.     strcat ( Path, "\\" ) ;
  3301.     strcat ( Path, Found->achName ) ;
  3302.     strcat ( Path, "\\*.*" ) ;
  3303.  
  3304.     Count = 1 ;
  3305.     if ( !DosFindFirst2 ( Path, &hDir,
  3306.       FILE_NORMAL | FILE_READONLY | FILE_ARCHIVED,
  3307.       Found, PathSize+sizeof(FILEFINDBUF), &Count, FIL_STANDARD, 0L ) )
  3308.     {
  3309.       do
  3310.       {
  3311.         TotalSize += Found->cbFileAlloc ;
  3312.       }
  3313.       while ( !DosFindNext ( hDir, Found, PathSize+sizeof(FILEFINDBUF), &Count ) ) ;
  3314.       DosFindClose ( hDir ) ;
  3315.     }
  3316.  
  3317.     Count = 1 ;
  3318.       }
  3319.  
  3320.      /***********************************************************************
  3321.       * Else if it was a file, add its size to the total.            *
  3322.       ***********************************************************************/
  3323.  
  3324.       else
  3325.       {
  3326.     TotalSize += Found->cbFileAlloc ;
  3327.       }
  3328.     }
  3329.     while ( !DosFindNext ( hDir, Found, PathSize+sizeof(FILEFINDBUF), &Count ) ) ;
  3330.  
  3331.    /*************************************************************************
  3332.     * Close the directory scan.                         *
  3333.     *************************************************************************/
  3334.  
  3335.     DosFindClose ( hDir ) ;
  3336.   }
  3337.  
  3338.   free ( Path ) ;
  3339.   free ( Found ) ;
  3340.  
  3341.   return ( TotalSize ) ;
  3342. }
  3343.  
  3344. /****************************************************************************
  3345.  *                                        *
  3346.  *    Compute CPU Load                                *
  3347.  *                                        *
  3348.  ****************************************************************************/
  3349.  
  3350. static ULONG ComputeCpuLoad ( PDATA Data, USHORT Dummy )
  3351. {
  3352.   ULONG Load ;
  3353.  
  3354.   Data->MaxCount = (ULONG) max ( Data->MaxCount, Data->IdleCount ) ;
  3355.  
  3356.   Load = ( ( Data->MaxCount - Data->IdleCount ) * 100 ) / Data->MaxCount ;
  3357.  
  3358.   return ( Load ) ;
  3359. }
  3360.  
  3361. /****************************************************************************
  3362.  *                                        *
  3363.  *    Compute Active Task Count                         *
  3364.  *                                        *
  3365.  ****************************************************************************/
  3366.  
  3367. static ULONG ComputeTaskCount ( PDATA Data, USHORT Dummy )
  3368. {
  3369.   return ( WinQuerySwitchList ( Data->Anchor, NULL, 0 ) ) ;
  3370. }
  3371.  
  3372. /****************************************************************************
  3373.  *                                        *
  3374.  *    Compute Drive Free Space                            *
  3375.  *                                        *
  3376.  ****************************************************************************/
  3377.  
  3378. static ULONG ComputeDriveFree ( PDATA Data, USHORT Drive )
  3379. {
  3380.   FSALLOCATE Allocation ;
  3381.   USHORT Status ;
  3382.  
  3383.   DosError ( HARDERROR_DISABLE ) ;
  3384.   Status = DosQFSInfo ( Drive, FSIL_ALLOC, (PBYTE)&Allocation, sizeof(Allocation) ) ;
  3385.   DosError ( HARDERROR_ENABLE ) ;
  3386.  
  3387.   if ( Status )
  3388.   {
  3389.     return ( DRIVE_ERROR ) ;
  3390.   }
  3391.  
  3392.   DosError ( HARDERROR_ENABLE ) ;
  3393.   return ( Allocation.cUnitAvail*Allocation.cSectorUnit*Allocation.cbSector ) ;
  3394. }
  3395.  
  3396. /****************************************************************************
  3397.  *                                        *
  3398.  *    Monitor Loop Thread                            *
  3399.  *                                        *
  3400.  ****************************************************************************/
  3401.  
  3402. static void _far _cdecl MonitorLoopThread ( PMONITOR_PARMS Parms )
  3403. {
  3404.  /***************************************************************************
  3405.   * Local Declarations                                *
  3406.   ***************************************************************************/
  3407.  
  3408.   ULONG     Counter ;
  3409.   ULONG     CurrentCounter ;
  3410.   ULONG     DeltaMilliseconds ;
  3411.   BOOL        HiResTimer ;
  3412.   ULONG     LastCounter ;
  3413.   ULONG     LastMilliseconds ;
  3414.   ULONG     Nanoseconds ;
  3415.   PGINFOSEG pGlobalInfoSeg = NULL ;
  3416.   PLINFOSEG pLocalInfoSeg = NULL ;
  3417.   TIMESTAMP Time [2] ;
  3418.  
  3419.  /***************************************************************************
  3420.   * Set this thread's priority as high as it can go.                        *
  3421.   ***************************************************************************/
  3422.  
  3423.   DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM, *_threadid  ) ;
  3424.  
  3425.  /***************************************************************************
  3426.   * Get pointer to global information segment, where the time is kept.        *
  3427.   ***************************************************************************/
  3428.  
  3429.   DosGetInfoSeg ( &SELECTOROF(pGlobalInfoSeg), &SELECTOROF(pLocalInfoSeg) ) ;
  3430.  
  3431.  /***************************************************************************
  3432.   * Start up the high resolution timer, if it is available.            *
  3433.   ***************************************************************************/
  3434.  
  3435.   HiResTimer = OpenTimer ( ) ;
  3436.  
  3437.  /***************************************************************************
  3438.   * Loop forever . . .                                *
  3439.   ***************************************************************************/
  3440.  
  3441.   while ( 1 )
  3442.   {
  3443.  
  3444.    /*************************************************************************
  3445.     * Reset the last time and count seen.                    *
  3446.     *************************************************************************/
  3447.  
  3448.     if ( HiResTimer )
  3449.       GetTime ( &Time[0] ) ;
  3450.     else
  3451.       LastMilliseconds = pGlobalInfoSeg->msecs ;
  3452.  
  3453.     LastCounter = *Parms->Counter ;
  3454.  
  3455.    /*************************************************************************
  3456.     * Sleep for a bit.                                *
  3457.     *************************************************************************/
  3458.  
  3459.     DosSleep ( *Parms->Interval ) ;
  3460.  
  3461.    /*************************************************************************
  3462.     * Find out how much time and counts went by.                *
  3463.     *************************************************************************/
  3464.  
  3465.     CurrentCounter = *Parms->Counter ;
  3466.  
  3467.     if ( HiResTimer )
  3468.     {
  3469.       GetTime ( &Time[1] ) ;
  3470.       DeltaMilliseconds = ElapsedTime ( &Time[0], &Time[1], &Nanoseconds ) ;
  3471.       if ( Nanoseconds >= 500000L )
  3472.     DeltaMilliseconds ++ ;
  3473.     }
  3474.     else
  3475.     {
  3476.       DeltaMilliseconds = pGlobalInfoSeg->msecs - LastMilliseconds ;
  3477.     }
  3478.  
  3479.    /*************************************************************************
  3480.     * Find out how much idle time was counted.    Adjust it to persecond.     *
  3481.     *************************************************************************/
  3482.  
  3483.     Counter = ( (CurrentCounter-LastCounter) * 1000 ) / DeltaMilliseconds ;
  3484.  
  3485.    /*************************************************************************
  3486.     * Tell the owner window to refresh its statistics.                *
  3487.     *************************************************************************/
  3488.  
  3489.     WinPostMsg ( Parms->Owner, WM_REFRESH, MPFROMLONG(Counter), 0L ) ;
  3490.   }
  3491. }
  3492.  
  3493. /****************************************************************************
  3494.  *                                        *
  3495.  *    Update the Item List to reflect changes in the available drives.    *
  3496.  *                                        *
  3497.  ****************************************************************************/
  3498.  
  3499. static VOID UpdateDriveList
  3500. (
  3501.   HAB Anchor,
  3502.   HMODULE Library,
  3503.   PPROFILE Profile,
  3504.   ULONG OldDrives,
  3505.   ULONG NewDrives
  3506. )
  3507. {
  3508.  /***************************************************************************
  3509.   * Local Declarations                                *
  3510.   ***************************************************************************/
  3511.  
  3512.   USHORT Count ;
  3513.   USHORT Drive ;
  3514.   BYTE FileSystem [80] ;
  3515.   SHORT i ;
  3516.   USHORT OldCount ;
  3517.   USHORT OldIndex ;
  3518.   ITEM OldItems [ ITEM_BASE_COUNT + MAX_DRIVES ] ;
  3519.   ULONG Size ;
  3520.  
  3521.   CHAR LabelFormat [80] ;
  3522.   CHAR OptionFormat [80] ;
  3523.  
  3524.  /***************************************************************************
  3525.   * Lock the item list.                             *
  3526.   ***************************************************************************/
  3527.  
  3528.   if ( DosSemRequest ( &ItemSemaphore, 5000 ) )
  3529.   {
  3530.     Log ( "ERROR: Unable to lock item list to update the drive list.\n" ) ;
  3531.     DosSemRequest ( &ItemSemaphore, SEM_INDEFINITE_WAIT ) ;
  3532.   }
  3533.  
  3534.  /***************************************************************************
  3535.   * Get format strings.                             *
  3536.   ***************************************************************************/
  3537.  
  3538.   WinLoadString ( Anchor, Library, IDS_SHOW_DRIVE_FREE_LABEL, sizeof(LabelFormat), LabelFormat ) ;
  3539.   WinLoadString ( Anchor, Library, IDS_SHOW_DRIVE_FREE_OPTION, sizeof(OptionFormat), OptionFormat ) ;
  3540.  
  3541.  /***************************************************************************
  3542.   * Save the old item list for comparison.                    *
  3543.   ***************************************************************************/
  3544.  
  3545.   OldCount = 0 ;
  3546.   memset ( OldItems, 0, sizeof(OldItems) ) ;
  3547.  
  3548.   if ( OldDrives )
  3549.   {
  3550.     OldCount = Profile->ItemCount ;
  3551.     memcpy ( OldItems, Items, sizeof(OldItems) ) ;
  3552.   }
  3553.  
  3554.  /***************************************************************************
  3555.   * Add items for each drive on the system.                    *
  3556.   ***************************************************************************/
  3557.  
  3558.   Count = ITEM_BASE_COUNT ;
  3559.   OldIndex = ITEM_BASE_COUNT ;
  3560.  
  3561.   NewDrives >>= 2 ;
  3562.   OldDrives >>= 2 ;
  3563.  
  3564.   for ( Drive=3; Drive<MAX_DRIVES; Drive++ )
  3565.   {
  3566.     while ( ( OldIndex < OldCount )
  3567.       AND ( (SHORT)OldItems[OldIndex].MenuId < IDM_SHOW_DRIVE_FREE + Drive ) )
  3568.     {
  3569.       OldIndex ++ ;
  3570.     }
  3571.  
  3572.     if ( NewDrives & 1 )
  3573.     {
  3574.       if ( OldDrives & 1 )
  3575.       {
  3576.     Items[Count++] = OldItems[OldIndex++] ;
  3577.       }
  3578.       else
  3579.       {
  3580.     if ( CheckDrive ( Drive, FileSystem ) )
  3581.     {
  3582.       sprintf ( Items[Count].Name,         "ShowDrive%c:", Drive+'A'-1 ) ;
  3583.       sprintf ( Items[Count].Label,      LabelFormat,    Drive+'A'-1, FileSystem ) ;
  3584.       sprintf ( Items[Count].MenuOption, OptionFormat,   Drive+'A'-1 ) ;
  3585.  
  3586.       Items[Count].MenuId = IDM_SHOW_DRIVE_FREE + Drive ;
  3587.       Items[Count].NewValue = ComputeDriveFree ;
  3588.       Items[Count].Parm = Drive ;
  3589.       Items[Count].Divisor = 1024 ;
  3590.       Items[Count].Suffix = 'K' ;
  3591.       Items[Count].Error = FALSE ;
  3592.       Count ++ ;
  3593.     }
  3594.       }
  3595.     }
  3596.  
  3597.     NewDrives >>= 1 ;
  3598.     OldDrives >>= 1 ;
  3599.   }
  3600.  
  3601.  /***************************************************************************
  3602.   * Save pointer to fixed configuration information.                *
  3603.   ***************************************************************************/
  3604.  
  3605.   Profile->Items = Items ;
  3606.   Profile->ItemCount = Count ;
  3607.  
  3608.  /***************************************************************************
  3609.   * Fetch the display flags for the drives.                    *
  3610.   ***************************************************************************/
  3611.  
  3612.   for ( i=ITEM_BASE_COUNT; i<Profile->ItemCount; i++ )
  3613.   {
  3614.     PITEM Item = & Profile->Items [i] ;
  3615.  
  3616.     Item->Flag = TRUE ;
  3617.     if
  3618.     (
  3619.       PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, Item->Name, &Size )
  3620.       AND
  3621.       ( Size == sizeof(Item->Flag) )
  3622.       AND
  3623.       PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, Item->Name, &Item->Flag, &Size )
  3624.     )
  3625.     {
  3626.       ;
  3627.     }
  3628.   }
  3629.  
  3630.  /***************************************************************************
  3631.   * Release the item list.                            *
  3632.   ***************************************************************************/
  3633.  
  3634.   DosSemClear ( &ItemSemaphore ) ;
  3635. }
  3636.  
  3637. /****************************************************************************
  3638.  *                                        *
  3639.  *    Check to see if drive should be added to display list.            *
  3640.  *                                        *
  3641.  ****************************************************************************/
  3642.  
  3643. static BOOL CheckDrive ( USHORT Drive, PBYTE FileSystem )
  3644. {
  3645.  /***************************************************************************
  3646.   * Local Declarations                                *
  3647.   ***************************************************************************/
  3648.  
  3649.   USHORT           Action ;
  3650.   BOOL               Addit ;
  3651.   CHAR               Buffer [1024] ;
  3652.   BIOSPARAMETERBLOCK   BiosParms ;
  3653.   USHORT           cbName ;
  3654.   BYTE               Command ;
  3655.   USHORT           Handle ;
  3656.   USHORT           Size ;
  3657.   USHORT           Status ;
  3658.   BYTE               Path [3] ;
  3659.  
  3660.  /***************************************************************************
  3661.   * First, check to see if drive is local or remote.  Remote drives are     *
  3662.   *   always monitored.                             *
  3663.   ***************************************************************************/
  3664.  
  3665.   Path[0] = (BYTE) ( Drive + 'A' - 1 ) ;
  3666.   Path[1] = ':' ;
  3667.   Path[2] = 0 ;
  3668.  
  3669.   DosError ( HARDERROR_DISABLE ) ;
  3670.   Size = sizeof(Buffer) ;
  3671.   Status = DosQFSAttach ( Path, 0, FSAIL_QUERYNAME, Buffer, &Size, 0 ) ;
  3672.   DosError ( HARDERROR_ENABLE ) ;
  3673.  
  3674.   if ( Status )
  3675.   {
  3676.     Log ( "ERROR: Unable to query drive %s for file system.  Status %04X.\n",
  3677.       Path, Status ) ;
  3678.     return ( FALSE ) ;
  3679.   }
  3680.  
  3681.   cbName = ((FSQBUFFER*)Buffer)->cbName ;
  3682.   strcpy ( FileSystem, ((FSQBUFFER*)(Buffer+cbName))->szFSDName ) ;
  3683.  
  3684.   if ( ((FSQBUFFER*)Buffer)->iType == FSAT_REMOTEDRV )
  3685.   {
  3686.     return ( TRUE ) ;
  3687.   }
  3688.  
  3689.  /***************************************************************************
  3690.   * Attempt to open the local drive as an entire device.  If unable to do   *
  3691.   *   so, we cannot monitor this drive.                     *
  3692.   ***************************************************************************/
  3693.  
  3694.   if ( DosOpen ( Path, &Handle, &Action, 0, 0, FILE_OPEN,
  3695.     OPEN_ACCESS_READONLY | OPEN_SHARE_DENYNONE |
  3696.     OPEN_FLAGS_DASD | OPEN_FLAGS_FAIL_ON_ERROR, 0 ) )
  3697.   {
  3698.     return ( FALSE ) ;
  3699.   }
  3700.  
  3701.  /***************************************************************************
  3702.   * Check to see if the drive has removable media.  We cannot monitor such. *
  3703.   ***************************************************************************/
  3704.  
  3705.   Addit = FALSE ;
  3706.  
  3707.   Command = 0 ;
  3708.   if ( !DosDevIOCtl ( &BiosParms, &Command, DSK_GETDEVICEPARAMS, IOCTL_DISK, Handle ) )
  3709.   {
  3710.     if ( BiosParms.fsDeviceAttr & 1 )  // Must be FIXED drive.
  3711.     {
  3712.       Addit = TRUE ;
  3713.     }
  3714.   }
  3715.  
  3716.  /***************************************************************************
  3717.   * Close the drive.                                *
  3718.   ***************************************************************************/
  3719.  
  3720.   DosClose ( Handle ) ;
  3721.  
  3722.  /***************************************************************************
  3723.   * Return the final verdict.                            *
  3724.   ***************************************************************************/
  3725.  
  3726.   return ( Addit ) ;
  3727. }
  3728.  
  3729. /****************************************************************************
  3730.  *                                        *
  3731.  *    Rebuild the Display Items submenu.                    *
  3732.  *                                        *
  3733.  ****************************************************************************/
  3734.  
  3735. static VOID RebuildDisplayItems ( HWND hwnd, PDATA Data )
  3736. {
  3737.  /***************************************************************************
  3738.   * Local Declarations                                *
  3739.   ***************************************************************************/
  3740.  
  3741.   HWND       Frame ;
  3742.   SHORT    i ;
  3743.   HWND       ItemMenu ;
  3744.   MENUITEM MenuItem ;
  3745.   HWND       SysMenu ;
  3746.  
  3747.  /***************************************************************************
  3748.   * Lock the item list.                             *
  3749.   ***************************************************************************/
  3750.  
  3751.   if ( DosSemRequest ( &ItemSemaphore, 5000 ) )
  3752.   {
  3753.     Log ( "ERROR: Unable to lock item list to rebuild the display item menu.\n" ) ;
  3754.     DosSemRequest ( &ItemSemaphore, SEM_INDEFINITE_WAIT ) ;
  3755.   }
  3756.  
  3757.  /***************************************************************************
  3758.   * Find the item menu's handle.                                            *
  3759.   ***************************************************************************/
  3760.  
  3761.   Frame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  3762.  
  3763.   SysMenu = WinWindowFromID ( Frame, FID_SYSMENU ) ;
  3764.  
  3765.   WinSendMsg ( SysMenu, MM_QUERYITEM,
  3766.     MPFROM2SHORT ( IDM_DISPLAY_ITEMS, TRUE ),
  3767.     (MPARAM) &MenuItem ) ;
  3768.   ItemMenu = MenuItem.hwndSubMenu ;
  3769.  
  3770.  /***************************************************************************
  3771.   * Remove all items from the menu.                        *
  3772.   ***************************************************************************/
  3773.  
  3774.   if ( WinSendMsg ( ItemMenu, MM_QUERYITEMCOUNT, 0, 0 ) )
  3775.   {
  3776.     USHORT Id ;
  3777.     SHORT ItemsLeft ;
  3778.  
  3779.     do
  3780.     {
  3781.       Id = SHORT1FROMMR ( WinSendMsg ( ItemMenu, MM_ITEMIDFROMPOSITION,
  3782.     0, 0 ) ) ;
  3783.  
  3784.       ItemsLeft = SHORT1FROMMR ( WinSendMsg ( ItemMenu, MM_DELETEITEM,
  3785.     MPFROM2SHORT(Id,FALSE), 0 ) ) ;
  3786.     }
  3787.     while ( ItemsLeft ) ;
  3788.   }
  3789.  
  3790.  /***************************************************************************
  3791.   * Prepare menu item structure for use.                    *
  3792.   ***************************************************************************/
  3793.  
  3794.   MenuItem.iPosition = MIT_END ;
  3795.   MenuItem.afStyle = MIS_TEXT ;
  3796.   MenuItem.afAttribute = 0 ;
  3797.   MenuItem.hwndSubMenu = NULL ;
  3798.   MenuItem.hItem = 0L ;
  3799.  
  3800.  /***************************************************************************
  3801.   * Add all menu items called for.                        *
  3802.   ***************************************************************************/
  3803.  
  3804.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  3805.   {
  3806.     PITEM Item = & Data->Profile.Items [i] ;
  3807.  
  3808.     MenuItem.id = Item->MenuId ;
  3809.  
  3810.     AddSysSubMenuItem ( Frame, IDM_DISPLAY_ITEMS, &MenuItem, Item->MenuOption ) ;
  3811.  
  3812.     CheckMenuItem ( Frame, FID_SYSMENU, Item->MenuId, Item->Flag ) ;
  3813.   }
  3814.  
  3815.  /***************************************************************************
  3816.   * Split the menu if it's too tall.                                        *
  3817.   ***************************************************************************/
  3818.  
  3819.   if ( Data->Profile.ItemCount > 15 )
  3820.   {
  3821.     USHORT Midpoint = ( Data->Profile.ItemCount + 1 ) / 2 ;
  3822.     USHORT Id = Data->Profile.Items[Midpoint].MenuId ;
  3823.     MENUITEM MenuItem ;
  3824.  
  3825.     if ( WinSendMsg ( ItemMenu, MM_QUERYITEM, MPFROM2SHORT(Id,FALSE), &MenuItem ) )
  3826.     {
  3827.       MenuItem.afStyle |= MIS_BREAKSEPARATOR ;
  3828.       WinSendMsg ( ItemMenu, MM_SETITEM, MPFROM2SHORT(0,FALSE), &MenuItem ) ;
  3829.     }
  3830.   }
  3831.  
  3832.  /***************************************************************************
  3833.   * Release the item list.                            *
  3834.   ***************************************************************************/
  3835.  
  3836.   DosSemClear ( &ItemSemaphore ) ;
  3837. }
  3838.  
  3839. /****************************************************************************
  3840.  *                                        *
  3841.  *             Calibrate the Load Meter                *
  3842.  *                                        *
  3843.  ****************************************************************************/
  3844.  
  3845. static ULONG CalibrateLoadMeter ( void )
  3846. {
  3847.  /***************************************************************************
  3848.   * Local Declarations                                *
  3849.   ***************************************************************************/
  3850.  
  3851.   double    AdjustedMaxLoad = 0.0 ;
  3852.   ULONG     MaxLoad ;
  3853.   ULONG     Milliseconds ;
  3854.   ULONG     Nanoseconds ;
  3855.   TID        tidCalibrate ;
  3856.   TIMESTAMP    Time[2] ;
  3857.  
  3858.  /***************************************************************************
  3859.   * If HRTIMER.SYS has been installed . . .                    *
  3860.   ***************************************************************************/
  3861.  
  3862.   if ( OpenTimer ( ) )
  3863.   {
  3864.    /*************************************************************************
  3865.     * Increase this thread's priority to the maximum.                       *
  3866.     *************************************************************************/
  3867.  
  3868.     DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM, *_threadid ) ;
  3869.  
  3870.    /*************************************************************************
  3871.     * Create the calibration thread and set its priority next highest.        *
  3872.     *************************************************************************/
  3873.  
  3874.     tidCalibrate = _beginthread ( CounterThread, NULL, 1024, &MaxLoad ) ;
  3875.     DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM-1, tidCalibrate ) ;
  3876.     DosSuspendThread ( tidCalibrate ) ;
  3877.  
  3878.    /*************************************************************************
  3879.     * Reset the calibration count, get the time, and let the counter go.    *
  3880.     *************************************************************************/
  3881.  
  3882.     MaxLoad = 0 ;
  3883.     GetTime ( &Time[0] ) ;
  3884.     DosResumeThread ( tidCalibrate ) ;
  3885.  
  3886.    /*************************************************************************
  3887.     * Sleep for one second.                            *
  3888.     *************************************************************************/
  3889.  
  3890.     DosSleep ( 1000 ) ;
  3891.  
  3892.    /*************************************************************************
  3893.     * Suspend the calibration counter and get the time.             *
  3894.     *************************************************************************/
  3895.  
  3896.     DosSuspendThread ( tidCalibrate ) ;
  3897.     GetTime ( &Time[1] ) ;
  3898.  
  3899.    /*************************************************************************
  3900.     * Return priorities to normal.                        *
  3901.     *************************************************************************/
  3902.  
  3903.     DosSetPrty ( PRTYS_THREAD, PRTYC_REGULAR, 0, *_threadid ) ;
  3904.  
  3905.    /*************************************************************************
  3906.     * Get the elapsed time and adjust the calibration count.            *
  3907.     *************************************************************************/
  3908.  
  3909.     Milliseconds = ElapsedTime ( &Time[0], &Time[1], &Nanoseconds ) ;
  3910.  
  3911.     AdjustedMaxLoad = (double)MaxLoad * 1.0E9 ;
  3912.     AdjustedMaxLoad /= (double)Milliseconds*1.0E6L + (double)Nanoseconds ;
  3913.  
  3914.    /*************************************************************************
  3915.     * Close down the connection to HRTIMER.SYS.                 *
  3916.     *************************************************************************/
  3917.  
  3918.     CloseTimer ( ) ;
  3919.   }
  3920.  
  3921.  /***************************************************************************
  3922.   * Return the adjusted calibration count.  If HRTIMER was not there, it    *
  3923.   *   will be zero.                                *
  3924.   ***************************************************************************/
  3925.  
  3926.   return ( (ULONG)AdjustedMaxLoad ) ;
  3927. }
  3928.  
  3929. /****************************************************************************
  3930.  *                                        *
  3931.  *              General Purpose Counter Thread                *
  3932.  *                                        *
  3933.  ****************************************************************************/
  3934.  
  3935. static void _far _cdecl CounterThread ( PULONG Counter )
  3936. {
  3937.   while ( 1 )
  3938.   {
  3939.     (*Counter) ++ ;
  3940.   }
  3941. }
  3942.